home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / fullscreen.s < prev    next >
Text File  |  1997-01-31  |  156KB  |  10,917 lines
  1.     
  2.  
  3. *************************************************
  4. * Stuff to do to get a C2P version:
  5. * Change copperlist
  6. * Change wall drawing
  7. * change floor drawing
  8. * change object drawing
  9. * change polygon drawing (ugh)
  10. * Write a palette generator program in AMOS
  11. * to provide a good 256 colour palette and
  12. * convert all graphics files specified
  13. * (possibly included in the game linker
  14. * program).
  15. * Possibly change the wall/floor/object
  16. * palettes to look nicer with more shades.
  17. * RE-implement stippling (if not present)
  18. * as it will look gorgeous now.
  19. *************************************************
  20.  
  21. MIDDLEX set 144
  22. RIGHTX set 287
  23. BOTTOMY set 240
  24.  
  25. ;MIDDLEX set 96
  26. ;RIGHTX set 191
  27. ;BOTTOMY set 160
  28.  
  29. _break    macro
  30. ;    bkpt    \1
  31.     endm
  32.  
  33.  
  34. FILTER    macro
  35. ;    move.l    d0,-(sp)
  36. ;    move.l    #65000,d0
  37. ;.loop\@
  38. ;    bchg    #1,$bfe001
  39. ;    dbra    d0,.loop\@
  40. ;    move.l    (sp)+,d0
  41.     endm
  42.  
  43. BLACK    macro
  44.     move.w    #0,$dff180
  45.     endm
  46.  
  47. RED    macro
  48.     move.w    #$f00,$dff180
  49.     endm
  50.  
  51. FLASHER macro
  52. ;    movem.l    d1,-(sp)
  53. ;    move.w    #-1,d1
  54. ;
  55. ;loop3\@
  56. ;;    move.w    #\1,$dff180
  57. ;    nop
  58. ;    nop
  59. ;    move.w    #\2,$dff180
  60. ;    nop
  61. ;    nop
  62. ;    dbra    d1,loop3\@
  63.  
  64. ;    movem.l    (sp)+,d1
  65.  
  66.     endm
  67.  
  68. GREEN    macro
  69.     move.w    #$0f0,$dff180
  70.     endm
  71.  
  72. BLUE    macro
  73.     move.w    #$f,$dff180
  74.     endm
  75.  
  76. DataCacheOff macro
  77.     movem.l    a0-a6/d0-d7,-(sp)
  78.     move.l    4.w,a6
  79.     moveq    #0,d0
  80.     move.l    #%0000000100000000,d1
  81.     jsr    _LVOCacheControl(a6)
  82.     movem.l    (sp)+,a0-a6/d0-d7
  83.     endm
  84.  
  85. DataCacheOn macro
  86.     movem.l    a0-a6/d0-d7,-(sp)
  87.     move.l    4.w,a6
  88.     moveq    #-1,d0
  89.     move.l    #%0000000100000000,d1
  90.     jsr    _LVOCacheControl(a6)
  91.     movem.l    (sp)+,a0-a6/d0-d7
  92.     endm
  93.  
  94.     opt    P=68020
  95.  
  96.     include utils:sysinc/hardware/intbits.i
  97.  
  98. CD32VER equ 0
  99.  
  100. maxscrdiv EQU 8
  101. max3ddiv EQU 5
  102. playerheight EQU 12*1024
  103. playercrouched EQU 8*1024
  104. scrheight EQU 80
  105.  
  106. ; k/j/m
  107.  
  108. ; 4/8
  109. ; s/x
  110. ; b/n
  111.  
  112. midoffset EQU 104*4*40
  113.  
  114.  
  115.  SECTION Scrn,CODE
  116. OpenLib       equ -552
  117. CloseLib      equ -414
  118.  
  119. INTREQ        equ    $09C
  120. INTENA        equ    $09A
  121. INTENAR    equ    $01C
  122. DMACON        equ    $096
  123.  
  124. SERPER        equ    $032
  125. SERDATR    equ    $018
  126. SERDAT        equ    $030
  127. vhposr        equ $006    
  128. vhposrl    equ $007 
  129.  
  130. bltcon0    equ $40 
  131. bltcon1    equ $42
  132. bltcpt        equ $48
  133. bltbpt        equ $4c
  134. bltapt        equ $50
  135. spr0ctl    equ $142
  136. spr1ctl    equ $14a
  137. spr2ctl    equ $152
  138. spr3ctl    equ $15a
  139. spr4ctl    equ $162
  140. spr5ctl    equ $16a
  141. spr6ctl    equ $172
  142. spr7ctl    equ $17a
  143. spr0pos    equ $140
  144. spr1pos    equ $148
  145. spr2pos    equ $150
  146. spr3pos    equ $158
  147. spr4pos    equ $160
  148. spr5pos    equ $168
  149. spr6pos    equ $170
  150. spr7pos    equ $178
  151. bltdpt         equ $54
  152. bltafwm    equ $44
  153. bltalwm    equ $46
  154. bltsize         equ $58
  155. bltcmod         equ $60
  156. bltbmod         equ $62
  157. bltamod         equ $64
  158. bltdmod         equ $66
  159. diwstart        equ $8e         ; Screen hardware registers.
  160. diwstop         equ $90
  161. ddfstart        equ $92
  162. ddfstop         equ $94
  163. bplcon0         equ $100
  164. bplcon1         equ $102
  165. col0            equ $180
  166. col1            equ $182
  167. col2        equ $184
  168. col3        equ $186
  169. col4        equ $188
  170. col5        equ $18a
  171. col6        equ $18c
  172. col7        equ $18e
  173. col8            equ $190
  174. col9            equ $192
  175. col10           equ $194
  176. col11           equ $196
  177. col12           equ $198
  178. col13           equ $19a
  179. dmacon        equ $96
  180. dmaconr        equ $002
  181. intenar        equ $01c
  182. intena        equ $09a
  183. intreq        equ $09c
  184. intreqr        equ $01e
  185. intreqrl    equ $01f
  186. bpl1pth         equ $e0
  187. bpl1ptl         equ $e2
  188. bpl2pth        equ $e4
  189. bpl2ptl        equ $e6
  190. bpl3pth        equ $e8
  191. bpl3ptl        equ $ea
  192. bpl4pth        equ $ec
  193. bpl4ptl        equ $ee
  194. bpl5pth        equ $f0
  195. bpl5ptl        equ $f2
  196. bpl6pth        equ $f4
  197. bpl6ptl        equ $f6
  198. bpl7pth        equ $f8
  199. bpl7ptl        equ $fa
  200. bpl8pth        equ $fc
  201. bpl8ptl        equ $fe
  202. spr0pth        equ $120
  203. spr0ptl        equ $122
  204. spr1pth        equ $124
  205. spr1ptl        equ $126
  206. spr2pth        equ $128
  207. spr2ptl        equ $12a
  208. spr3pth        equ $12c
  209. spr3ptl        equ $12e
  210. spr4pth        equ $130
  211. spr4ptl        equ $132
  212. spr5pth        equ $134
  213. spr5ptl        equ $136
  214. spr6pth        equ $138
  215. spr6ptl        equ $13a
  216. spr7pth        equ $13c
  217. spr7ptl        equ $13e
  218. adkcon        equ   $09E
  219.  
  220.  
  221. ; move.l #length,d0
  222. ; moveq.l #2,d1    ; chipmem
  223. ; move.l 4.w,a6
  224. ; jsr allocmem(a6) = -198
  225.  
  226. ; tst.l d0
  227. ; beq.s ohbugger
  228. ; move.l d0,memaddr
  229.  
  230.  
  231. ; move.l 4.w,a6
  232. ; move.l memaddr,a1
  233. ; move.l #size,d0
  234. ; jsr freemem(a6) =-210
  235.  
  236.  
  237. ** This waits for the blitter to finish before allowing program
  238. ** execution to continue.
  239.  
  240.  
  241.  include "ab3:source_4000/protsetupdecode"
  242.  
  243. SAVEREGS MACRO
  244.  movem.l d0-d7/a0-a6,-(a7)
  245.  ENDM
  246.  
  247. GETREGS MACRO
  248.  movem.l (a7)+,d0-d7/a0-a6
  249.  ENDM
  250.  
  251.  
  252. WB MACRO
  253. \@bf:
  254.  btst #6,dmaconr(a6)
  255.  bne.s \@bf
  256.  ENDM
  257.  
  258. WBa MACRO
  259. \@bf:
  260.  move.w #\2,$dff180
  261.  
  262.  btst #6,$bfe001
  263.  bne.s \@bf
  264. \@bz:
  265.  
  266.  move.w #$f0f,$dff180
  267.  
  268.  btst #6,$bfe001
  269.  beq.s \@bz
  270.  
  271.  ENDM
  272.  
  273. *Another version for when a6 <> dff000
  274.  
  275. WBSLOW MACRO
  276. \@bf:
  277.  btst #6,$dff000+dmaconr
  278.  bne.s \@bf
  279.  ENDM
  280.  
  281. WT MACRO
  282. \@bf:
  283.  btst #6,(a3)
  284.  bne.s \@bd
  285.  rts
  286. \@bd: 
  287.  btst #4,(a0)
  288.  beq.s \@bf
  289.  ENDM
  290.  
  291. WTNOT MACRO
  292. \@bf:
  293.  btst #6,(a3)
  294.  bne.s \@bd
  295.  rts
  296. \@bd: 
  297.  btst #4,(a0)
  298.  bne.s \@bf
  299.  ENDM
  300.  
  301. **
  302.  
  303.  include "ab3:source_4000/ProtectionProtection"
  304.  include "macros.i"
  305.  include "ab3:source_4000/defs.i"
  306.  
  307.  move.w (a0)+,mors
  308.  
  309. ;    FLASHER $0f0,$fff
  310.  
  311. ; PROTFCALC
  312. ; PROTGCALC
  313. ; PROTHCALC
  314. ; PROTICALC
  315. ; PROTKCALC
  316. ; PROTLCALC
  317. ; PROTMCALC
  318.  
  319.  
  320.  
  321.  move.l #$dff000,a6    ; NB V. IMPORTANT: A6=CUSTOM BASE
  322.  move.w intenar(a6),_storeint
  323.  and.w #$c000,_storeint
  324.  
  325.  move.w #13,SERPER(a6)    ;19200 baud, 8 bits, no parity
  326.  
  327.  
  328.  st GOURSEL
  329.  
  330.  move.l 4.w,a6
  331.  lea VBLANKInt(pc),a1
  332.  moveq #INTB_COPER,d0
  333.  jsr _LVOAddIntServer(a6)
  334.  
  335.     IFEQ CD32VER
  336.  move.l 4.w,a6
  337.  lea KEYInt(pc),a1
  338.  moveq #INTB_PORTS,d0
  339.  jsr _LVOAddIntServer(a6)
  340.     ENDC
  341.     
  342.  move.l 4.w,a6
  343.  jsr _LVOSuperState(a6)
  344.  move.l d0,SSTACK
  345.  
  346.  DataCacheOff
  347. ; DATA_CACHE_OFF d2
  348.  
  349.  move.l 4.w,a6
  350.  move.l SSTACK,d0
  351.  jsr _LVOUserState(a6)
  352.  
  353.  
  354.  IFNE CD32VER
  355.  clr.b PLR1KEYS
  356.  clr.b PLR1PATH
  357.  clr.b PLR1MOUSE
  358.  st PLR1JOY
  359.  clr.b PLR2KEYS
  360.  clr.b PLR2PATH
  361.  clr.b PLR2MOUSE
  362.  st PLR2JOY
  363.  ELSE
  364.  st PLR1KEYS
  365.  clr.b PLR1PATH
  366.  clr.b PLR1MOUSE
  367.  clr.b PLR1JOY
  368.  st PLR2KEYS
  369.  clr.b PLR2PATH
  370.  clr.b PLR2MOUSE
  371.  clr.b PLR2JOY
  372.  ENDC
  373.  
  374.  PRSDO
  375.  
  376.  move.l #2,d1    
  377.  move.l #10240*2,d0
  378.  move.l 4.w,a6
  379.  jsr -198(a6)
  380.  move.l d0,TEXTSCRN
  381.  move.w d0,TSPTl
  382.  swap d0
  383.  move.w d0,TSPTh
  384.  
  385.  move.l #nullspr,d0
  386.  move.w d0,txs0l
  387.  move.w d0,txs1l
  388.  move.w d0,txs2l
  389.  move.w d0,txs3l
  390.  move.w d0,txs4l
  391.  move.w d0,txs5l
  392.  move.w d0,txs6l
  393.  move.w d0,txs7l
  394.  swap d0
  395.  move.w d0,txs0h
  396.  move.w d0,txs1h
  397.  move.w d0,txs2h
  398.  move.w d0,txs3h
  399.  move.w d0,txs4h
  400.  move.w d0,txs5h
  401.  move.w d0,txs6h
  402.  move.w d0,txs7h 
  403.  
  404.  move.l #1,d1    
  405.  move.l #120000,d0
  406.  move.l 4.w,a6
  407.  jsr -198(a6)
  408.  move.l d0,LEVELDATA
  409.  
  410.  move.l #1,d1    
  411.  move.l #2*320*256,d0
  412.  move.l 4.w,a6
  413.  jsr -198(a6)
  414.  move.l d0,FASTBUFFER
  415.  
  416.  
  417.  jsr START
  418.  
  419.  rts
  420.  
  421. FASTBUFFER: dc.l 0
  422. _storeint
  423.     dc.w 0
  424.  
  425. * Load level into buffers.
  426.  clr.b doanything
  427.  clr.b dosounds
  428.  
  429. ; DRAW TEXT SCREEN
  430.  
  431. TWEENTEXT:
  432.  
  433.  move.l #LEVELTEXT,a0
  434.  move.w PLOPT,d0
  435.  muls #82*16,d0
  436.  add.l d0,a0
  437.  
  438.  move.w #14,d7
  439.  move.w #0,d0
  440. DOWNTEXT:
  441.  move.l TEXTSCRN,a1
  442.  jsr DRAWLINEOFTEXT
  443.  addq #1,d0
  444.  add.w #82,a0
  445.  dbra d7,DOWNTEXT
  446.  rts
  447.  
  448. FONTADDRS:
  449.  dc.l ENDFONT0,CHARWIDTHS0
  450.  dc.l ENDFONT1,CHARWIDTHS1
  451.  dc.l ENDFONT2,CHARWIDTHS2
  452.  
  453. ENDFONT0:
  454.  incbin "endfont0"
  455. CHARWIDTHS0:
  456.  incbin "charwidths0"
  457. ENDFONT1:
  458.  incbin "endfont1"
  459. CHARWIDTHS1:
  460.  incbin "charwidths1"
  461. ENDFONT2:
  462.  incbin "endfont2"
  463. CHARWIDTHS2:
  464.  incbin "charwidths2"
  465.  
  466.  even
  467.  
  468. DRAWLINEOFTEXT:
  469.  movem.l d0/a0/d7,-(a7)
  470.  
  471.  muls #80*16,d0
  472.  add.l d0,a1    ; screen pointer
  473.  
  474.  move.l #FONTADDRS,a3
  475.  moveq #0,d0
  476.  move.b (a0)+,d0
  477.  move.l (a3,d0.w*8),a2
  478.  move.l 4(a3,d0.w*8),a3
  479.  
  480.  moveq #0,d1    ; width counter:
  481.  move.w #79,d6
  482.  tst.b (a0)+
  483.  beq.s NOTCENTRED
  484.  moveq #-1,d5
  485.  move.l a0,a4
  486.  moveq #0,d2
  487.  moveq #0,d3
  488.  move.w #79,d0    ; number of chars
  489. .addup:
  490.  addq #1,d5
  491.  move.b (a4)+,d2
  492.  move.b -32(a3,d2.w),d4
  493.  add.w d4,d3
  494.  cmp.b #32,d2
  495.  beq.s .DONTPUTIN
  496.  move.w d5,d6
  497.  move.w d3,d1
  498. .DONTPUTIN:
  499.  dbra d0,.addup
  500.  asr.w #1,d1
  501.  neg.w d1
  502.  add.w #320,d1    ; horiz pos of start x
  503.  
  504. NOTCENTRED:
  505.  move.w d6,d7
  506. DOACHAR:
  507.  moveq #0,d2
  508.  move.b (a0)+,d2
  509.  sub.w #32,d2
  510.  moveq #0,d6
  511.  move.b (a3,d2.w),d6
  512.  asl.w #5,d2
  513.  lea (a2,d2.w),a4    ; char font
  514. val SET 0
  515.  REPT 16
  516.  move.w (a4)+,d0
  517.  bfins d0,val(a1){d1:d6}
  518. val SET val+80
  519.  ENDR
  520.  add.w d6,d1
  521.  dbra d7,DOACHAR
  522.  movem.l (a7)+,d0/a0/d7
  523.  rts 
  524.  
  525.  
  526. CLRTWEENSCRN:
  527.  move.l TEXTSCRN,a0
  528.  move.w #(10240/16)-1,d0
  529.  move.l #$0,d1
  530. .lll
  531.  move.l d1,(a0)+
  532.  move.l d1,(a0)+
  533.  move.l d1,(a0)+
  534.  move.l d1,(a0)+
  535.  move.l d1,(a0)+
  536.  move.l d1,(a0)+
  537.  move.l d1,(a0)+
  538.  move.l d1,(a0)+
  539.  dbra d0,.lll
  540.  rts
  541.  
  542. PLAYTHEGAME:
  543.  
  544.  move.w #0,TXTCOLL
  545.  
  546.  bsr CLRTWEENSCRN
  547.  
  548.  cmp.b #'n',mors
  549.  bne.s .notext
  550.  bsr TWEENTEXT
  551. .notext
  552.  
  553. ;charlie 
  554.  move.l #TEXTCOP,$dff080
  555.  
  556.  move.w #$10,d0
  557.  move.w #7,d1
  558.  
  559. .fdup
  560.  move.w d0,TXTCOLL
  561.  add.w #$121,d0
  562. .wtframe:
  563.  btst #5,$dff000+intreqrl
  564.  beq.s .wtframe
  565.  move.w #$0020,$dff000+intreq
  566.  dbra d1,.fdup
  567.  
  568.  jsr INITCOPPERSCRN
  569.  
  570. ; Get level memory.
  571.  
  572.  move.l #1,d1
  573.  move.l #50000,d0
  574.  move.l 4.w,a6
  575.  jsr -198(a6)
  576.  move.l d0,LEVELGRAPHICS
  577.  
  578.  move.l #1,d1
  579.  move.l #40000,d0
  580.  move.l 4.w,a6
  581.  jsr -198(a6)
  582.  move.l d0,LEVELCLIPS
  583.  
  584.  move.l #$dff000,a6
  585.  jsr SETPLAYERS
  586.  
  587. ; move.l #LEVELDATAD,LEVELDATA
  588. ; move.l #LEVELGRAPHICSD,LEVELGRAPHICS
  589. ; move.l #LEVELCLIPSD,LEVELCLIPS
  590.  
  591. ; bra noload
  592.  
  593. *********************************
  594.  
  595.  move.l doslib,a6
  596.  move.l #LLname,d1
  597.  move.l #1005,d2
  598.  jsr -30(a6)
  599.  move.l d0,LLhandle
  600.  
  601.  move.l doslib,a6
  602.  move.l d0,d1
  603.  move.l #LINKS,d2
  604.  move.l #10000,d3
  605.  jsr -42(a6)
  606.  
  607.  move.l doslib,a6
  608.  move.l LLhandle,d1
  609.  jsr -36(a6)
  610.  
  611.  ********************************
  612.  
  613.  
  614.  move.l doslib,a6
  615.  move.l #LDname,d1
  616.  move.l #1005,d2
  617.  jsr -30(a6)
  618.  move.l d0,LDhandle
  619.  
  620.  move.l doslib,a6
  621.  move.l d0,d1
  622.  move.l LEVELCLIPS,d2
  623.  move.l #40000,d3
  624.  jsr -42(a6)
  625.  
  626.  move.l doslib,a6
  627.  move.l LDhandle,d1
  628.  jsr -36(a6)
  629.  
  630. *************************************
  631.     move.l    LEVELCLIPS,d0
  632.     moveq    #0,d1
  633.     move.l LEVELDATA,a0
  634.     lea    WorkSpace,a1
  635.     lea    $0,a2
  636.     jsr    unLHA
  637. *************************************
  638.  
  639. ********
  640.  
  641.  move.l doslib,a6
  642.  move.l #LGname,d1
  643.  move.l #1005,d2
  644.  jsr -30(a6)
  645.  move.l d0,LGhandle
  646.  
  647.  move.l doslib,a6
  648.  move.l d0,d1
  649.  move.l LEVELCLIPS,d2
  650.  move.l #40000,d3
  651.  jsr -42(a6)
  652.  
  653.  move.l doslib,a6
  654.  move.l LGhandle,d1
  655.  jsr -36(a6)
  656.  
  657. *************************************
  658.     move.l    LEVELCLIPS,d0
  659.     moveq    #0,d1
  660.     move.l LEVELGRAPHICS,a0
  661.     lea    WorkSpace,a1
  662.     lea    $0,a2
  663.     jsr    unLHA
  664. *************************************
  665.  
  666.  
  667. ********
  668.  
  669.  move.l doslib,a6
  670.  move.l #LCname,d1
  671.  move.l #1005,d2
  672.  jsr -30(a6)
  673.  move.l d0,LChandle
  674.  
  675.  move.l doslib,a6
  676.  move.l d0,d1
  677.  move.l #WorkSpace+16384,d2
  678.  move.l #16000,d3
  679.  jsr -42(a6)
  680.  
  681.  move.l doslib,a6
  682.  move.l LChandle,d1
  683.  jsr -36(a6)
  684.  
  685. *************************************
  686.     move.l    #WorkSpace+16384,d0
  687.     moveq    #0,d1
  688.     move.l LEVELCLIPS,a0
  689.     lea    WorkSpace,a1
  690.     lea    $0,a2
  691.     jsr    unLHA
  692. *************************************
  693.  
  694.  
  695. *******
  696.  
  697. noload:
  698.  
  699. ********
  700.  
  701. ; move.l doslib,a6
  702. ; move.l #Prefsname,d1
  703. ; move.l #1005,d2
  704. ; jsr -30(a6)
  705. ; move.l d0,Prefshandle
  706.  
  707. ; move.l doslib,a6
  708. ; move.l d0,d1
  709. ; move.l #Prefsfile,d2
  710. ; move.l #50,d3
  711. ; jsr -42(a6)
  712.  
  713. ; move.l doslib,a6
  714. ; move.l Prefshandle,d1
  715. ; jsr -36(a6)
  716.  
  717. *******
  718.  
  719.  IFNE CD32VER
  720.  move.l doslib,a6
  721.  move.l #115,d1
  722.  jsr -198(a6)
  723.  ENDC
  724.  
  725.  
  726. ; move.l doslib,d0
  727. ; move.l d0,a1
  728. ; move.l 4.w,a6
  729. ; jsr CloseLib(a6)
  730.  
  731.  move.l #$dff000,a6
  732.  
  733. charlie:
  734. ; jmp  ENDGAMESCROLL
  735.  
  736.     move.w #$87c0,dmacon(a6)
  737.  
  738.     move.w    #%1000000000100000,dmacon(a6)
  739.  
  740. ; move.w intenar(a6),saveinters
  741.     
  742.     move.w #%00101111,intena(a6)
  743.  
  744.     move.w #255,adkcon(a6)
  745.  
  746.  
  747. *** Put myself in supervisor mode
  748.  
  749.  bra blag
  750. ; move.l $6c,d0
  751. ; move.l #blag,$6c
  752. ; move.w #$8010,intreq(a6)
  753.  
  754.  rts
  755.  
  756. saveit: ds.l 10
  757. doslibname: dc.b 'dos.library',0
  758.  even
  759. doslib: dc.l 0
  760.  
  761. mors: dc.w 0
  762.  
  763. LDname: dc.b 'ab3d2:levels/level_'
  764. LEVA:
  765.  dc.b 'a/twolev.bin',0
  766.  even
  767. LDhandle: dc.l 0
  768. LGname: dc.b 'ab3d2:levels/level_'
  769. LEVB:
  770.  dc.b 'a/twolev.graph.bin',0
  771.  even
  772. LGhandle: dc.l 0
  773. LCname: dc.b 'ab3d2:levels/level_'
  774. LEVC:
  775.  dc.b 'a/twolev.clips',0
  776.  even
  777. LChandle: dc.l 0
  778. LLname: dc.b 'ab3d2:levels/level_'
  779. LEVD:
  780.  dc.b 'a/twolev.map',0
  781.  even
  782. LLhandle: dc.l 0
  783.  
  784.     cnop    0,4
  785.  
  786. Prefsname: dc.b 'ram:prefs',0
  787.  even
  788. Prefshandle: dc.l 0
  789.  
  790. Prefsfile:
  791.  dc.b 'k4nx'
  792.  ds.b 50
  793.  
  794.  even
  795.  
  796.  cnop 0,4
  797.  
  798. VBLANKInt
  799.  dc.l 0,0
  800.  dc.b NT_INTERRUPT,9
  801.  dc.l Prefsname
  802.  dc.l 0
  803.  dc.l Chan0inter
  804.  
  805.  
  806. KEYInt
  807.  dc.l 0,0
  808.  dc.b NT_INTERRUPT,127
  809.  dc.l Prefsname
  810.  dc.l 0
  811.  dc.l key_interrupt
  812.  
  813.  
  814. blag:
  815. ; move.w #$10,intreq(a6)
  816. ; move.l d0,$6c
  817. ; move.w #$7fff,intena(a6)
  818.  
  819. ; move.w #$20,$dff1dc
  820.  
  821. ; move.l 4.w,a6
  822. ; lea VBLANKInt(pc),a1
  823. ; moveq #INTB_COPER,d0
  824. ; jsr _LVOAddIntServer(a6)
  825.  
  826. ****************************
  827. * Initialize level
  828. ****************************
  829. * Poke all clip offsets into
  830. * correct bit of level data.
  831. ****************************
  832.  move.l LEVELGRAPHICS,a0
  833.  move.l 12(a0),a1
  834.  add.l a0,a1
  835.  move.l a1,ZoneGraphAdds
  836.  move.l (a0),a1
  837.  add.l a0,a1
  838.  move.l a1,DoorData
  839.  move.l 4(a0),a1
  840.  add.l a0,a1
  841.  move.l a1,LiftData
  842.  move.l 8(a0),a1
  843.  add.l a0,a1
  844.  move.l a1,SwitchData
  845.  adda.w #16,a0
  846.  move.l a0,ZoneAdds
  847.  
  848.  move.l LEVELDATA,a1
  849.  
  850.  lea 54(a1),a2
  851.  move.l a2,CPtPos
  852.  move.w 12(a1),NumCPts
  853.  
  854.  move.l 16+6(a1),a2
  855.  add.l a1,a2
  856.  move.l a2,Points
  857.  move.w 8+6(a1),d0
  858.  lea 4(a2,d0.w*4),a2
  859.  move.l a2,PointBrights
  860.  
  861.  move.l 20+6(a1),a2
  862.  add.l a1,a2
  863.  move.l a2,FloorLines
  864.  move.l 24+6(a1),a2
  865.  add.l a1,a2
  866.  move.l a2,ObjectData
  867. *****************************************
  868. * Just for charles
  869.  
  870. ; move.w #$6060,6(a2)
  871. ; move.l #$d0000,8(a2)
  872. ; sub.w #40,4(a2)
  873. ; move.w #45*256+45,14(a2)
  874. ****************************************
  875.  move.l 28+6(a1),a2
  876.  add.l a1,a2
  877.  move.l a2,PlayerShotData
  878.  move.l 32+6(a1),a2
  879.  add.l a1,a2
  880.  move.l a2,NastyShotData
  881.  
  882.  add.l #64*20,a2
  883.  move.l a2,OtherNastyData
  884.  
  885.  move.l 36+6(a1),a2
  886.  add.l a1,a2
  887.  move.l a2,ObjectPoints  
  888.  move.l 40+6(a1),a2
  889.  add.l a1,a2
  890.  move.l a2,PLR1_Obj
  891.  move.l 44+6(a1),a2
  892.  add.l a1,a2
  893.  move.l a2,PLR2_Obj
  894.  move.w 14+6(a1),NumObjectPoints
  895.  
  896. ; bra noclips
  897.   
  898.  move.l LEVELCLIPS,a2
  899.  moveq #0,d0
  900.  move.w 10+6(a1),d7    ;numzones
  901. assignclips:
  902.  move.l (a0)+,a3
  903.  add.l a1,a3    ; pointer to a zone
  904.  adda.w #ToListOfGraph,a3 ; pointer to zonelist
  905. dowholezone:
  906.  tst.w (a3)
  907.  blt.s nomorethiszone
  908.  tst.w 2(a3)
  909.  blt.s thisonenull
  910.  
  911.  move.l d0,d1
  912.  asr.l #1,d1
  913.  move.w d1,2(a3)
  914.  
  915. findnextclip:
  916.  cmp.w #-2,(a2,d0.l)
  917.  beq.s foundnextclip
  918.  addq.l #2,d0
  919.  bra.s findnextclip
  920. foundnextclip
  921.  addq.l #2,d0
  922.  
  923. thisonenull:
  924.  addq #8,a3 
  925.  bra.s dowholezone
  926. nomorethiszone:
  927.  dbra d7,assignclips
  928.  
  929.  lea (a2,d0.l),a2
  930.  move.l a2,CONNECT_TABLE
  931.  
  932. noclips:
  933.  
  934. * Put in addresses of glowything
  935.  
  936.  
  937. ************************************
  938.  
  939. ; cmp.b #'k',Prefsfile
  940. ; bne.s nkb
  941.  
  942. ;nkb:
  943. ; cmp.b #'m',Prefsfile
  944. ; bne.s nmc
  945. ; clr.b PLR1KEYS
  946. ; clr.b PLR1PATH
  947. ; st PLR1MOUSE
  948. ; clr.b PLR1JOY
  949. ;nmc:
  950. ; cmp.b #'j',Prefsfile
  951. ; bne.s njc
  952. ; clr.b PLR1KEYS
  953. ; clr.b PLR1PATH
  954. ; clr.b PLR1MOUSE
  955. ; st PLR1JOY
  956. ;njc:
  957.  
  958.  clr.b PLR1_StoodInTop
  959.  move.l #playerheight,PLR1s_height
  960.  
  961.  move.l #empty,pos1LEFT
  962.  move.l #empty,pos2LEFT
  963.  move.l #empty,pos1RIGHT
  964.  move.l #empty,pos2RIGHT
  965.  move.l #emptyend,Samp0endLEFT
  966.  move.l #emptyend,Samp1endLEFT
  967.  move.l #emptyend,Samp0endRIGHT
  968.  move.l #emptyend,Samp1endRIGHT
  969.  
  970.  
  971.  move.l #nullline,d0
  972.  move.w d0,n1l
  973.  swap d0
  974.  move.w d0,n1h
  975.  
  976.  move.l Panel,d0
  977.  move.w d0,p1l
  978.  swap d0
  979.  move.w d0,p1h
  980.  swap d0
  981.  add.l #40,d0
  982.  move.w d0,p2l
  983.  swap d0
  984.  move.w d0,p2h
  985.  swap d0
  986.  add.l #40,d0
  987.  move.w d0,p3l
  988.  swap d0
  989.  move.w d0,p3h
  990.  swap d0
  991.  add.l #40,d0
  992.  move.w d0,p4l
  993.  swap d0
  994.  move.w d0,p4h
  995.  swap d0
  996.  add.l #40,d0
  997.  move.w d0,p5l
  998.  swap d0
  999.  move.w d0,p5h
  1000.  swap d0
  1001.  add.l #40,d0
  1002.  move.w d0,p6l
  1003.  swap d0
  1004.  move.w d0,p6h
  1005.  swap d0
  1006.  add.l #40,d0
  1007.  move.w d0,p7l
  1008.  swap d0
  1009.  move.w d0,p7h
  1010.  swap d0
  1011.  add.l #40,d0
  1012.  move.w d0,p8l
  1013.  swap d0
  1014.  move.w d0,p8h
  1015.  
  1016. *******************************
  1017. * TIMER SCREEN SETUP
  1018. ; move.l #TimerScr,d0
  1019. ; move.w d0,p1l
  1020. ; swap d0
  1021. ; move.w d0,p1h
  1022. ; move.w #$1201,Panelcon
  1023.  
  1024.  move.l #borders,d0
  1025.  move.w d0,s0l
  1026.  swap d0
  1027.  move.w d0,s0h
  1028.  move.l #borders+2592,d0
  1029.  move.w d0,s1l
  1030.  swap d0
  1031.  move.w d0,s1h
  1032.  move.l #borders+2592*2,d0
  1033.  move.w d0,s2l
  1034.  swap d0
  1035.  move.w d0,s2h
  1036.  move.l #borders+2592*3,d0
  1037.  move.w d0,s3l
  1038.  swap d0
  1039.  move.w d0,s3h
  1040.  
  1041.  move.l #nullspr,d0
  1042.  move.w d0,s0l
  1043.  move.w d0,s1l
  1044.  move.w d0,s2l
  1045.  move.w d0,s3l
  1046.  
  1047.  move.w d0,s4l
  1048.  move.w d0,s5l
  1049.  move.w d0,s6l
  1050.  move.w d0,s7l
  1051.  swap d0
  1052.  
  1053.  move.w d0,s0h
  1054.  move.w d0,s1h
  1055.  move.w d0,s2h
  1056.  move.w d0,s3h
  1057.  
  1058.  move.w d0,s4h
  1059.  move.w d0,s5h
  1060.  move.w d0,s6h
  1061.  move.w d0,s7h 
  1062.  
  1063.  
  1064.  move.w #52*256+64,borders
  1065.  move.w #212*256+0,borders+8
  1066.  move.w #52*256+64,borders+2592
  1067.  move.w #212*256+128,borders+8+2592
  1068.  move.w #52*256+192,borders+2592*2
  1069.  move.w #212*256+0,borders+8+2592*2
  1070.  move.w #52*256+192,borders+2592*3
  1071.  move.w #212*256+128,borders+8+2592*3
  1072.  
  1073.  move.l #FacePlace,d0
  1074.  move.w d0,f1l
  1075.  swap d0
  1076.  move.w d0,f1h
  1077.  move.l #FacePlace+32*24,d0
  1078.  move.w d0,f2l
  1079.  swap d0
  1080.  move.w d0,f2h
  1081.  move.l #FacePlace+32*24*2,d0
  1082.  move.w d0,f3l
  1083.  swap d0
  1084.  move.w d0,f3h
  1085.  move.l #FacePlace+32*24*3,d0
  1086.  move.w d0,f4l
  1087.  swap d0
  1088.  move.w d0,f4h
  1089.  move.l #FacePlace+32*24*4,d0
  1090.  move.w d0,f5l
  1091.  swap d0
  1092.  move.w d0,f5h
  1093.   
  1094.  
  1095.  move.l #bigfield,d0
  1096.  move.w d0,ocl
  1097.  swap d0
  1098.  move.w d0,och
  1099.  
  1100.  bset.b #1,$bfe001
  1101.  
  1102. ; jmp stuff
  1103. ;endstuff:
  1104.  
  1105.  move.w #$00ff,$dff09e
  1106.  
  1107. ; move.l #Blurbfield,$dff080
  1108.  
  1109.  move.w #0,d0
  1110.  
  1111.  move.l #scrn,d0
  1112.  move.w d0,pl1l
  1113.  swap d0
  1114.  move.w d0,pl1h
  1115.  
  1116.  move.l #scrn+10240,d0
  1117.  move.w d0,pl2l
  1118.  swap d0
  1119.  move.w d0,pl2h
  1120.  
  1121.  move.l #scrn+10240*2,d0
  1122.  move.w d0,pl3l
  1123.  swap d0
  1124.  move.w d0,pl3h
  1125.  
  1126.  move.l #scrn+10240*3,d0
  1127.  move.w d0,pl4l
  1128.  swap d0
  1129.  move.w d0,pl4h
  1130.  
  1131.  move.l #scrn+10240*4,d0
  1132.  move.w d0,pl5l
  1133.  swap d0
  1134.  move.w d0,pl5h
  1135.  
  1136.  move.l #scrn+10240*5,d0
  1137.  move.w d0,pl6l
  1138.  swap d0
  1139.  move.w d0,pl6h
  1140.  
  1141.  move.l #scrn+10240*6,d0
  1142.  move.w d0,pl7l
  1143.  swap d0
  1144.  move.w d0,pl7h
  1145.  
  1146.  move.l #scrn+10240*7,d0
  1147.  move.w d0,pl8l
  1148.  swap d0
  1149.  move.w d0,pl8h
  1150.  
  1151.  
  1152. ****************************
  1153.  jsr INITPLAYER
  1154. ; bsr initobjpos
  1155. ****************************
  1156.  
  1157.  
  1158.  move.l #$dff000,a6
  1159.  
  1160.  move.l #null,$dff0a0
  1161.  move.w #100,$dff0a4
  1162.  move.w #443,$dff0a6
  1163.  move.w #63,$dff0a8
  1164.  
  1165.  move.l #null2,$dff0b0
  1166.  move.w #100,$dff0b4
  1167.  move.w #443,$dff0b6
  1168.  move.w #63,$dff0b8
  1169.  
  1170.  move.l #null4,$dff0c0
  1171.  move.w #100,$dff0c4
  1172.  move.w #443,$dff0c6
  1173.  move.w #63,$dff0c8
  1174.  
  1175.  move.l #null3,$dff0d0
  1176.  move.w #100,$dff0d4
  1177.  move.w #443,$dff0d6
  1178.  move.w #63,$dff0d8
  1179.  
  1180.  move.l #tab,a1
  1181.  move.w #64,d7
  1182.  move.w #0,d6
  1183. outerlop
  1184.  move.l #pretab,a0
  1185.  move.w #255,d5
  1186. scaledownlop:
  1187.  move.b (a0)+,d0
  1188.  ext.w d0
  1189.  ext.l d0
  1190.  muls d6,d0
  1191.  asr.l #6,d0
  1192.  move.b d0,(a1)+
  1193.  dbra d5,scaledownlop
  1194.  addq #1,d6
  1195.  dbra d7,outerlop
  1196.  
  1197.  move.l #$dff000,a6
  1198.  
  1199.  move.w #$c018,intena(a6)
  1200.  
  1201.  move.w #$f,dmacon(a6)
  1202.  move.w #$820f,dmacon(a6)
  1203.  
  1204. ; bsr protinit
  1205.  
  1206.  
  1207. ; move.w #$20,$1dc(a6)
  1208.  
  1209.  move.w #$0,$dff034
  1210.  move.w #0,Conditions
  1211.  
  1212.  cmp.b #'n',mors
  1213.  beq.s .nokeys
  1214.  move.w #%111111111111,Conditions
  1215. .nokeys:
  1216.  
  1217.  move.l #KeyMap,a5
  1218.  clr.b $45(a5)
  1219.  
  1220.  move.l #ingame,mt_data
  1221.  clr.b UseAllChannels
  1222.  
  1223. ; cmp.b #'b',Prefsfile+3
  1224. ; bne.s .noback
  1225. ; jsr mt_init
  1226. ;.noback:
  1227. ;
  1228. ; clr.b CHANNELDATA
  1229. ; clr.b CHANNELDATA+8
  1230. ; clr.b CHANNELDATA+16
  1231. ; clr.b CHANNELDATA+24
  1232. ;
  1233. ; cmp.b #'b',Prefsfile+3
  1234. ; bne.s noreserve
  1235. ;
  1236. ; st CHANNELDATA
  1237. ; st CHANNELDATA+8
  1238. ; st CHANNELDATA+16
  1239. ; st CHANNELDATA+24
  1240. ;noreserve: 
  1241.  
  1242. ; st CHANNELDATA
  1243. ; st CHANNELDATA+8
  1244.  
  1245.  move.l SampleList+6*8,pos0LEFT
  1246.  move.l SampleList+6*8+4,Samp0endLEFT
  1247.  move.l #playerheight,PLR1s_targheight
  1248.  move.l #playerheight,PLR1s_height
  1249.  move.l #playerheight,PLR2s_targheight
  1250.  move.l #playerheight,PLR2s_height
  1251.  
  1252. ; cmp.b #'n',mors
  1253. ; beq.s nohandshake
  1254. ;
  1255. ; move.b #%11011000,$bfd200
  1256. ; move.b #%00010000,$bfd000
  1257. ;waitloop:
  1258. ; btst.b #4,$bfd000
  1259. ; bne.s waitloop
  1260. ; move.b #%11000000,$bfd200
  1261.  
  1262. ;wtmouse:
  1263. ; btst #6,$bfe001
  1264. ; bne.s wtmouse
  1265.  
  1266. ;nohandshake:
  1267.  
  1268. ; jmp end
  1269.  
  1270.  move.l COPSCRN1,drawpt
  1271.  move.l COPSCRN2,olddrawpt
  1272.  
  1273.  jsr CLEARKEYBOARD
  1274.  jsr MAKEBACKROUT
  1275.  
  1276.  clr.b MASTERQUITTING
  1277.  
  1278.  cmp.b #'n',mors
  1279.  seq SLAVEQUITTING
  1280.  
  1281.  move.w #127,PLR2_energy
  1282.  
  1283. ; move.l #ANOTHERSUP,$80
  1284. ; trap #0
  1285. ; rts
  1286. ;
  1287. ;ANOTHERSUP:
  1288.  
  1289.  move.l $4.w,a6
  1290.  jsr _LVOSuperState(a6)
  1291.  move.l d0,SSTACK
  1292.  
  1293.  CACHE_FREEZE_OFF d2
  1294.  
  1295. ; charlie
  1296. ; DATA_CACHE_ON d2
  1297.  
  1298.  DataCacheOn
  1299.  
  1300.  move.l $4.w,a6
  1301.  move.l SSTACK,d0
  1302.  jsr _LVOUserState(a6)
  1303.  
  1304.  move.l #0,hitcol
  1305.  
  1306.  cmp.b #'n',mors
  1307.  bne.s NOCLTXT
  1308.  
  1309.  move.b #0,lastpressed
  1310. .wtpress
  1311.  btst #6,$bfe001
  1312.  beq.s CLOSETXT
  1313.  btst #7,$bfe001
  1314.  beq.s CLOSETXT
  1315.  tst.b lastpressed
  1316.  beq.s .wtpress
  1317.  
  1318. CLOSETXT:
  1319.  
  1320.  move.w #$8f8,d0
  1321.  move.w #7,d1
  1322.  
  1323. .fdup
  1324.  move.w d0,TXTCOLL
  1325.  sub.w #$121,d0
  1326. .wtframe:
  1327.  btst #5,$dff000+intreqrl
  1328.  beq.s .wtframe
  1329.  move.w #$0020,$dff000+intreq
  1330.  dbra d1,.fdup
  1331.  
  1332.  move.w #0,TXTCOLL
  1333.  
  1334. NOCLTXT:
  1335.  
  1336.  
  1337.  
  1338.     move.l    4.w,a6
  1339.     jsr    _LVOForbid(a6)
  1340. ;    jsr    _LVODisable(a6)
  1341.  
  1342.  
  1343. ;    move.w    #%0111111111111111,intena+$dff000
  1344. ;    move.w    #%1000000011111111,intena+$dff000
  1345.  
  1346.  
  1347. ;charlie 
  1348.  move.l #PALETTEBIT,$dff084
  1349.  move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1350.  
  1351.  
  1352.  clr.b PLR1_Ducked
  1353.  clr.b PLR2_Ducked
  1354.  clr.b p1_ducked
  1355.  clr.b p2_ducked
  1356.  
  1357. ********************************************
  1358.  
  1359. ;    jmp docredits
  1360.  
  1361. ********************************************
  1362.  
  1363.  
  1364.  st doanything
  1365.  st dosounds
  1366.  
  1367.  jsr CLRNASTYMEM
  1368.  
  1369. lop:
  1370.  
  1371.  btst #6,$bfe001
  1372. ;charlie bne.b .nocop
  1373.  
  1374. ;charlie move.l #bigfield,$dff080    ; Point the copper at our copperlist.
  1375.  
  1376. .nocop
  1377.  
  1378.  move.l #KeyMap,a5
  1379.  
  1380.  cmp.b #'n',mors
  1381.  bne .nopause
  1382.  tst.b $19(a5)
  1383.  beq.s .nopause
  1384.  clr.b doanything
  1385.  
  1386. .waitrel:
  1387.  
  1388.  tst.b PLR1JOY
  1389.  beq.s .NOJOY
  1390.  jsr _ReadJoy1
  1391. .NOJOY
  1392.  
  1393.  tst.b $19(a5)
  1394.  bne.s .waitrel
  1395.  
  1396.  bsr PAUSEOPTS
  1397.  
  1398.  
  1399.  st doanything
  1400. .nopause: 
  1401.  
  1402.  move.l hitcol,d0
  1403.  move.l d0,d1
  1404.  add.l #PALETTEBIT,d1
  1405.  move.l d1,$dff084
  1406.  tst.l d0
  1407.  beq.s nofadedownhc
  1408.  sub.l #2116,d0
  1409.  move.l d0,hitcol
  1410. nofadedownhc:
  1411.  
  1412.  st READCONTROLS
  1413.  move.l #$dff000,a6
  1414.  
  1415.  
  1416.  cmp.b #'n',mors
  1417.  beq .nopause
  1418.  
  1419.  move.b SLAVEPAUSE,d0
  1420.  or.b MASTERPAUSE,d0
  1421.  beq.s .nopause
  1422.  clr.b doanything
  1423.  
  1424.  move.l #KeyMap,a5
  1425. .waitrel:
  1426.  
  1427.  
  1428.  cmp.b #'s',mors
  1429.  beq.s .RE2
  1430.  tst.b PLR1JOY
  1431.  beq.s .NOJOY
  1432.  jsr _ReadJoy1
  1433.  bra .RE1
  1434. .RE2:
  1435.  tst.b PLR2JOY
  1436.  beq.s .NOJOY
  1437.  jsr _ReadJoy2
  1438. .RE1
  1439. .NOJOY:
  1440.  tst.b $19(a5)
  1441.  bne.s .waitrel
  1442.  
  1443.  bsr PAUSEOPTS
  1444.  
  1445.  cmp.b #'m',mors
  1446.  bne.s .slavelast
  1447.  Jsr SENDFIRST
  1448.  bra .masfirst
  1449. .slavelast
  1450.  Jsr RECFIRST
  1451. .masfirst:
  1452.  clr.b SLAVEPAUSE
  1453.  clr.b MASTERPAUSE
  1454.  st doanything
  1455.  
  1456. .nopause: 
  1457.  
  1458.  
  1459.  
  1460.  move.l drawpt,d0
  1461.  move.l olddrawpt,drawpt
  1462.  move.l d0,olddrawpt
  1463.  
  1464.  move.l SCRNDRAWPT,d0
  1465.  move.l SCRNSHOWPT,SCRNDRAWPT
  1466.  move.l d0,SCRNSHOWPT
  1467.  
  1468.  move.l d0,d1
  1469.  move.l d1,d0
  1470.  move.w d0,pl1l
  1471.  swap d0
  1472.  move.w d0,pl1h
  1473.  
  1474.  add.l #10240,d1
  1475.  move.l d1,d0
  1476.  move.w d0,pl2l
  1477.  swap d0
  1478.  move.w d0,pl2h
  1479.  
  1480.  add.l #10240,d1
  1481.  move.l d1,d0
  1482.  move.w d0,pl3l
  1483.  swap d0
  1484.  move.w d0,pl3h
  1485.  
  1486.  add.l #10240,d1
  1487.  move.l d1,d0
  1488.  move.w d0,pl4l
  1489.  swap d0
  1490.  move.w d0,pl4h
  1491.  
  1492.  add.l #10240,d1
  1493.  move.l d1,d0
  1494.  move.w d0,pl5l
  1495.  swap d0
  1496.  move.w d0,pl5h
  1497.  
  1498.  add.l #10240,d1
  1499.  move.l d1,d0
  1500.  move.w d0,pl6l
  1501.  swap d0
  1502.  move.w d0,pl6h
  1503.  
  1504.  add.l #10240,d1
  1505.  move.l d1,d0
  1506.  move.w d0,pl7l
  1507.  swap d0
  1508.  move.w d0,pl7h
  1509.  
  1510.  add.l #10240,d1
  1511.  move.l d1,d0
  1512.  move.w d0,pl8l
  1513.  swap d0
  1514.  move.w d0,pl8h
  1515.  
  1516.  
  1517. ; move.l d0,$dff084    
  1518.  move.l drawpt,a3
  1519. ; move.l COPSCRNBUFF,a3
  1520.  adda.w #10,a3
  1521.  move.l a3,frompt
  1522.  add.l #104*4*40,a3
  1523.  move.l a3,midpt
  1524.  
  1525.  cmp.b #'s',mors
  1526.  beq.s nowaitslave
  1527.  
  1528. waitfortop:
  1529.  
  1530.  btst.b #0,intreqrl(a6)
  1531.  beq.b waitfortop
  1532.  
  1533.  move.w #$1,intreq(a6)
  1534.  move.l #PLR1_GunData,GunData
  1535.  move.b PLR1_GunSelected,GunSelected
  1536.  bra waitmaster
  1537.  
  1538. nowaitslave:
  1539.  move.l #PLR2_GunData,GunData
  1540.  move.b PLR2_GunSelected,GunSelected
  1541. waitmaster:
  1542.  
  1543.  move.l #SMIDDLEY,a0
  1544.  movem.l (a0)+,d0/d1
  1545.  move.l d0,MIDDLEY
  1546.  move.l d1,MIDDLEY+4
  1547.  
  1548.  move.l waterpt,a0
  1549.  move.l (a0)+,watertouse
  1550.  cmp.l #endwaterlist,a0
  1551.  blt.s okwat
  1552.  move.l #waterlist,a0
  1553. okwat:
  1554.  move.l a0,waterpt
  1555.  
  1556.  add.w #640,wtan
  1557.  and.w #8191,wtan
  1558.  add.l #$100,wateroff
  1559.  and.l #$3fff,wateroff
  1560.  
  1561.  move.l GunData,a6
  1562.  moveq #0,d0
  1563.  move.b GunSelected,d0
  1564.  lsl.w #2,d0
  1565.  lea (a6,d0.w*8),a6
  1566.  move.w (a6),d0
  1567.  asr.w #3,d0
  1568.  move.w d0,Ammo
  1569.  
  1570.  move.l PLR1_xoff,OLDX1
  1571.  move.l PLR1_zoff,OLDZ1
  1572.  move.l PLR2_xoff,OLDX2
  1573.  move.l PLR2_zoff,OLDZ2
  1574.  
  1575.  
  1576.  
  1577.  move.l #$dff000,a6
  1578.  
  1579.  cmp.b #'s',mors
  1580.  beq ASlaveShouldWaitOnHisMaster
  1581.  
  1582.  cmp.b #'n',mors
  1583.  bne NotOnePlayer
  1584.  
  1585.  move.w PLR1_energy,Energy
  1586.  move.w FramesToDraw,TempFrames
  1587.  cmp.w #15,TempFrames
  1588.  blt.s .okframe
  1589.  move.w #15,TempFrames
  1590. .okframe:
  1591.  move.w #0,FramesToDraw
  1592.  
  1593. *********************************************
  1594. *********** TAKE THIS OUT *******************
  1595. *********************************************
  1596.  
  1597.  move.l CHEATPTR,a4
  1598.  add.l #200000,a4
  1599.  moveq #0,d0
  1600.  move.b (a4),d0
  1601.  
  1602.  move.l #KeyMap,a5
  1603.  tst.b (a5,d0.w)
  1604.  beq.s .nocheat
  1605.  
  1606.  addq #1,a4
  1607.  cmp.l #ENDCHEAT,a4
  1608.  blt.s .nocheat
  1609.  cmp.w #0,CHEATNUM
  1610.  beq.s .nocheat
  1611.  sub.w #1,CHEATNUM
  1612.  move.l #CHEATFRAME,a4
  1613.  move.w #127,PLR1_energy
  1614.  bsr EnergyBar
  1615. .nocheat
  1616.  
  1617.  sub.l #200000,a4
  1618.  move.l a4,CHEATPTR
  1619.  
  1620. **********************************************
  1621. **********************************************
  1622. **********************************************
  1623.  
  1624.  move.l PLR1s_xoff,p1_xoff
  1625.  move.l PLR1s_zoff,p1_zoff
  1626.  move.l PLR1s_yoff,p1_yoff
  1627.  move.l PLR1s_height,p1_height
  1628.  move.w PLR1s_angpos,p1_angpos
  1629.  move.w PLR1_bobble,p1_bobble
  1630.  move.b PLR1_clicked,p1_clicked
  1631.  move.b PLR1_fire,p1_fire
  1632.  clr.b PLR1_clicked
  1633.  move.b PLR1_SPCTAP,p1_spctap
  1634.  clr.b PLR1_SPCTAP
  1635.  move.b PLR1_Ducked,p1_ducked
  1636.  move.b PLR1_GunSelected,p1_gunselected
  1637.  
  1638.  bsr PLR1_Control
  1639.  
  1640.  move.l PLR1_Roompt,a0
  1641.  move.l ToZoneRoof(a0),SplitHeight
  1642.  move.w p1_xoff,THISPLRxoff
  1643.  move.w p1_zoff,THISPLRzoff
  1644.  
  1645.  
  1646.  move.l #$60000,p2_yoff
  1647.  move.l PLR2_Obj,a0
  1648.  move.w #-1,GraphicRoom(a0)
  1649.  move.w #-1,12(a0)
  1650.  move.b #0,17(a0)
  1651.  move.l #BollocksRoom,PLR2_Roompt
  1652.  
  1653.  bra donetalking
  1654.  
  1655. NotOnePlayer:
  1656.  move.l #KeyMap,a5
  1657.  tst.b $19(a5)
  1658.  sne MASTERPAUSE
  1659.  
  1660. *********************************
  1661.  move.w PLR1_energy,Energy
  1662. ; change this back
  1663. *********************************
  1664.  
  1665.  jsr SENDFIRST
  1666.  
  1667.  move.w FramesToDraw,TempFrames
  1668.  cmp.w #15,TempFrames
  1669.  blt.s .okframe
  1670.  move.w #15,TempFrames
  1671. .okframe:
  1672.  move.w #0,FramesToDraw
  1673.  
  1674.  move.l PLR1s_xoff,p1_xoff
  1675.  move.l PLR1s_zoff,p1_zoff
  1676.  move.l PLR1s_yoff,p1_yoff
  1677.  move.l PLR1s_height,p1_height
  1678.  move.w PLR1s_angpos,p1_angpos
  1679.  move.w PLR1_bobble,p1_bobble
  1680.  move.b PLR1_clicked,p1_clicked
  1681.  clr.b PLR1_clicked
  1682.  move.b PLR1_fire,p1_fire
  1683.  move.b PLR1_SPCTAP,p1_spctap
  1684.  clr.b PLR1_SPCTAP
  1685.  move.b PLR1_Ducked,p1_ducked
  1686.  move.b PLR1_GunSelected,p1_gunselected
  1687.  
  1688.  move.l p1_xoff,d0
  1689.  jsr SENDFIRST
  1690.  move.l d0,p2_xoff
  1691.  
  1692.  move.l p1_zoff,d0
  1693.  jsr SENDFIRST
  1694.  move.l d0,p2_zoff 
  1695.  
  1696.  move.l p1_yoff,d0
  1697.  jsr SENDFIRST
  1698.  move.l d0,p2_yoff
  1699.   
  1700.  move.l p1_height,d0
  1701.  jsr SENDFIRST
  1702.  move.l d0,p2_height
  1703.  
  1704.  move.w p1_angpos,d0
  1705.  swap d0
  1706.  move.w p1_bobble,d0
  1707.  jsr SENDFIRST
  1708.  move.w d0,p2_bobble
  1709.  swap d0
  1710.  move.w d0,p2_angpos
  1711.  
  1712.  
  1713.  move.w TempFrames,d0
  1714.  swap d0
  1715.  move.b p1_spctap,d0
  1716.  lsl.w #8,d0
  1717.  move.b p1_clicked,d0
  1718.  jsr SENDFIRST
  1719.  move.b d0,p2_clicked
  1720.  lsr.w #8,d0
  1721.  move.b d0,p2_spctap
  1722.  
  1723.  
  1724.  move.w Rand1,d0
  1725.  swap d0
  1726.  move.b p1_ducked,d0
  1727.  lsl.w #8,d0
  1728.  move.b p1_gunselected,d0
  1729.  jsr SENDFIRST
  1730.  move.b d0,p2_gunselected
  1731.  lsr.w #8,d0
  1732.  move.b d0,p2_ducked
  1733.  
  1734.  move.b p1_fire,d0
  1735.  lsl.w #8,d0
  1736.  move.b MASTERQUITTING,d0
  1737.  or.b d0,SLAVEQUITTING
  1738.  swap d0
  1739.  move.b MASTERPAUSE,d0
  1740.  or.b d0,SLAVEPAUSE
  1741.  jsr SENDFIRST
  1742.  or.b d0,MASTERPAUSE
  1743.  or.b d0,SLAVEPAUSE
  1744.  swap d0
  1745.  or.b d0,SLAVEQUITTING
  1746.  or.b d0,MASTERQUITTING
  1747.  lsr.w #8,d0
  1748.  move.b d0,p2_fire
  1749.  
  1750.  bsr PLR1_Control
  1751.  bsr PLR2_Control
  1752.  move.l PLR1_Roompt,a0
  1753.  move.l ToZoneRoof(a0),SplitHeight
  1754.  move.w p1_xoff,THISPLRxoff
  1755.  move.w p1_zoff,THISPLRzoff
  1756.  
  1757.  bra donetalking
  1758.  
  1759. ASlaveShouldWaitOnHisMaster:
  1760.  
  1761.  move.l #KeyMap,a5
  1762.  tst.b $19(a5)
  1763.  sne SLAVEPAUSE
  1764.  
  1765.  
  1766.  move.w PLR2_energy,Energy
  1767.  
  1768.  jsr RECFIRST
  1769.  
  1770.  move.l PLR2s_xoff,p2_xoff
  1771.  move.l PLR2s_zoff,p2_zoff
  1772.  move.l PLR2s_yoff,p2_yoff
  1773.  move.l PLR2s_height,p2_height
  1774.  move.w PLR2s_angpos,p2_angpos
  1775.  move.w PLR2_bobble,p2_bobble
  1776.  move.b PLR2_clicked,p2_clicked
  1777.  clr.b PLR2_clicked
  1778.  move.b PLR2_fire,p2_fire
  1779.  move.b PLR2_SPCTAP,p2_spctap
  1780.  clr.b PLR2_SPCTAP
  1781.  move.b PLR2_Ducked,p2_ducked
  1782.  move.b PLR2_GunSelected,p2_gunselected
  1783.  
  1784.  move.l p2_xoff,d0
  1785.  jsr RECFIRST
  1786.  move.l d0,p1_xoff
  1787.  
  1788.  move.l p2_zoff,d0
  1789.  jsr RECFIRST
  1790.  move.l d0,p1_zoff
  1791.  
  1792.  move.l p2_yoff,d0
  1793.  jsr RECFIRST
  1794.  move.l d0,p1_yoff
  1795.  
  1796.  move.l p2_height,d0
  1797.  jsr RECFIRST
  1798.  move.l d0,p1_height
  1799.  
  1800.  move.w p2_angpos,d0
  1801.  swap d0
  1802.  move.w p2_bobble,d0
  1803.  jsr RECFIRST
  1804.  move.w d0,p1_bobble
  1805.  swap d0
  1806.  move.w d0,p1_angpos
  1807.  
  1808.  
  1809.  move.b p2_spctap,d0
  1810.  lsl.w #8,d0
  1811.  move.b p2_clicked,d0
  1812.  jsr RECFIRST
  1813.  move.b d0,p1_clicked
  1814.  lsr.w #8,d0
  1815.  move.b d0,p1_spctap
  1816.  swap d0
  1817.  move.w d0,TempFrames
  1818.  
  1819.  
  1820.  move.b p2_ducked,d0
  1821.  lsl.w #8,d0
  1822.  move.b p2_gunselected,d0
  1823.  jsr RECFIRST
  1824.  move.b d0,p1_gunselected
  1825.  lsr.w #8,d0
  1826.  move.b d0,p1_ducked
  1827.  swap d0
  1828.  move.w d0,Rand1
  1829.  
  1830.  move.b p2_fire,d0
  1831.  lsl.w #8,d0
  1832.  move.b SLAVEQUITTING,d0
  1833.  or.b d0,MASTERQUITTING
  1834.  swap d0
  1835.  move.b SLAVEPAUSE,d0
  1836.  or.b d0,MASTERPAUSE
  1837.  jsr RECFIRST
  1838.  or.b d0,MASTERPAUSE
  1839.  or.b d0,SLAVEPAUSE
  1840.  swap d0
  1841.  or.b d0,SLAVEQUITTING
  1842.  or.b d0,MASTERQUITTING
  1843.  lsr.w #8,d0
  1844.  move.b d0,p1_fire
  1845.  
  1846.  
  1847.  bsr PLR1_Control
  1848.  bsr PLR2_Control
  1849.  move.w p2_xoff,THISPLRxoff
  1850.  move.w p2_zoff,THISPLRzoff
  1851.  move.l PLR2_Roompt,a0
  1852.  move.l ToZoneRoof(a0),SplitHeight
  1853.  
  1854. donetalking:
  1855.  
  1856.  
  1857.  
  1858.  
  1859.  move.l #ZoneBrightTable,a1
  1860.  move.l ZoneAdds,a2
  1861.  move.l PLR2_ListOfGraphRooms,a0
  1862.  move.l PLR2_PointsToRotatePtr,a5
  1863.  cmp.b #'s',mors
  1864.  beq.s doallz
  1865.  move.l PLR1_ListOfGraphRooms,a0
  1866.  move.l PLR1_PointsToRotatePtr,a5
  1867.  
  1868. doallz
  1869.  move.w (a0),d0
  1870.  blt.s doneallz
  1871.  add.w #8,a0
  1872.  
  1873.  move.l (a2,d0.w*4),a3
  1874.  add.l LEVELDATA,a3
  1875.  move.w ToZoneBrightness(a3),d2
  1876.  
  1877.  blt.s justbright
  1878.  move.w d2,d3
  1879.  lsr.w #8,d3
  1880.  tst.b d3
  1881.  beq.s justbright
  1882.  
  1883.  move.l #BrightAnimTable,a4
  1884.  move.w -2(a4,d3.w*2),d2
  1885.  
  1886. justbright:
  1887.  muls #32,d2
  1888.  divs #20,d2
  1889.  move.w d2,(a1,d0.w*4)
  1890.  
  1891.  move.w ToUpperBrightness(a3),d2
  1892.  
  1893.  blt.s justbright2
  1894.  move.w d2,d3
  1895.  lsr.w #8,d3
  1896.  tst.b d3
  1897.  beq.s justbright2
  1898.  
  1899.  move.l #BrightAnimTable,a4
  1900.  move.w -2(a4,d3.w*2),d2
  1901.  
  1902. justbright2:
  1903.  
  1904.  muls #32,d2
  1905.  divs #20,d2
  1906.  move.w d2,2(a1,d0.w*4)
  1907.  
  1908.  bra doallz
  1909.  
  1910. doneallz:
  1911.  
  1912.  move.l PointBrights,a2
  1913.  move.l #CurrentPointBrights,a3
  1914. justtheone:
  1915.  move.w (a5)+,d0
  1916.  blt whythehell
  1917.  move.w (a2,d0.w*4),d2
  1918.  
  1919.  tst.b d2
  1920.  blt.s .justbright
  1921.  move.w d2,d3
  1922.  lsr.w #8,d3
  1923.  tst.b d3
  1924.  beq.s .justbright
  1925.  
  1926.  move.w d3,d4
  1927.  and.w #$f,d3
  1928.  lsr.w #4,d4
  1929.  add.w #1,d4
  1930.  
  1931.  move.l #BrightAnimTable,a0
  1932.  move.w -2(a0,d3.w*2),d3
  1933.  ext.w d2
  1934.  sub.w d2,d3
  1935.  muls d4,d3
  1936.  asr.w #4,d3
  1937.  add.w d3,d2
  1938.  
  1939. .justbright:
  1940.  ext.w d2
  1941.  
  1942.  muls #31,d2
  1943.  divs #20,d2
  1944.  
  1945.  move.w d2,(a3,d0.w*4)
  1946.  move.w 2(a2,d0.w*4),d2
  1947.  
  1948.  tst.b d2
  1949.  blt.s .justbright2
  1950.  move.w d2,d3
  1951.  lsr.w #8,d3
  1952.  tst.b d3
  1953.  beq.s .justbright2
  1954.  
  1955.  move.w d3,d4
  1956.  and.w #$f,d3
  1957.  lsr.w #4,d4
  1958.  add.w #1,d4
  1959.  
  1960.  move.l #BrightAnimTable,a0
  1961.  move.w -2(a0,d3.w*2),d3
  1962.  ext.w d2
  1963.  sub.w d2,d3
  1964.  muls d4,d3
  1965.  asr.w #4,d3
  1966.  add.w d3,d2
  1967.  
  1968. .justbright2:
  1969.  ext.w d2
  1970.  muls #31,d2
  1971.  divs #20,d2
  1972.  
  1973.  move.w d2,2(a3,d0.w*4)
  1974.  
  1975.  bra justtheone
  1976.  
  1977. whythehell:
  1978.  
  1979.  cmp.b #'n',mors
  1980.  beq nosee
  1981.  
  1982.  move.l PLR1_Roompt,FromRoom
  1983.  move.l PLR2_Roompt,ToRoom
  1984.  move.w p1_xoff,Viewerx
  1985.  move.w p1_zoff,Viewerz
  1986.  move.l p1_yoff,d0
  1987.  asr.l #7,d0
  1988.  move.w d0,Viewery
  1989.  move.w p2_xoff,Targetx
  1990.  move.w p2_zoff,Targetz
  1991.  move.l p2_yoff,d0
  1992.  asr.l #7,d0
  1993.  move.w d0,Targety
  1994.  move.b PLR1_StoodInTop,ViewerTop
  1995.  move.b PLR2_StoodInTop,TargetTop
  1996.  jsr CanItBeSeen
  1997.  
  1998.  move.l PLR1_Obj,a0
  1999.  move.b CanSee,d0
  2000.  and.b #2,d0
  2001.  move.b d0,17(a0)
  2002.  move.l PLR2_Obj,a0
  2003.  move.b CanSee,d0
  2004.  and.b #1,d0
  2005.  move.b d0,17(a0)
  2006.  
  2007. nosee:
  2008.  
  2009.  move.l PLR1_Obj,a0
  2010.  move.b #5,16(a0)
  2011.  move.l PLR2_Obj,a0
  2012.  move.b #11,16(a0)
  2013.  
  2014.  move.w TempFrames,d0
  2015.  add.w d0,p1_holddown
  2016.  cmp.w #30,p1_holddown
  2017.  blt.s oklength
  2018.  move.w #30,p1_holddown
  2019. oklength:
  2020.  
  2021.  tst.b p1_fire
  2022.  bne.s okstillheld
  2023.  sub.w d0,p1_holddown
  2024.  bge.s okstillheld
  2025.  move.w #0,p1_holddown
  2026.  
  2027. okstillheld:
  2028.  
  2029.  move.w TempFrames,d0
  2030.  add.w d0,p2_holddown
  2031.  
  2032.  cmp.w #30,p2_holddown
  2033.  blt.s oklength2
  2034.  move.w #30,p2_holddown
  2035. oklength2:
  2036.  
  2037.  
  2038.  tst.b p2_fire
  2039.  bne.s okstillheld2
  2040.  sub.w d0,p2_holddown
  2041.  bge.s okstillheld2
  2042.  move.w #0,p2_holddown
  2043. okstillheld2:
  2044.  
  2045. ; move.l #PLR1_GunData,a1
  2046. ; move.w p1_holddown,d0
  2047. ; move.w #50,10+32*3(a1)
  2048. ; move.l #PLR2_GunData,a1
  2049. ; move.w p2_holddown,d0
  2050. ; move.w #50,10+32*3(a1)
  2051.  
  2052.  
  2053. ******************************************
  2054. ******************************************
  2055.  
  2056.  move.w TempFrames,d1
  2057.  bgt.s noze
  2058.  moveq #1,d1
  2059. noze:
  2060.  
  2061.  move.w PLR1_xoff,d0
  2062.  sub.w OLDX1,d0
  2063.  asl.w #4,d0
  2064.  ext.l d0
  2065.  divs d1,d0
  2066.  move.w d0,XDIFF1
  2067.  move.w PLR2_xoff,d0
  2068.  sub.w OLDX2,d0
  2069.  asl.w #4,d0
  2070.  ext.l d0
  2071.  divs d1,d0
  2072.  move.w d0,XDIFF2
  2073.  move.w PLR1_zoff,d0
  2074.  sub.w OLDZ1,d0
  2075.  asl.w #4,d0
  2076.  ext.l d0
  2077.  divs d1,d0
  2078.  move.w d0,ZDIFF1
  2079.  move.w PLR2_zoff,d0
  2080.  sub.w OLDZ2,d0
  2081.  asl.w #4,d0
  2082.  ext.l d0
  2083.  divs d1,d0
  2084.  move.w d0,ZDIFF2
  2085.  
  2086.  cmp.b #'s',mors
  2087.  beq.s ImPlayer2OhYesIAm
  2088.  bsr USEPLR1
  2089.  bra IWasPlayer1
  2090.  
  2091. ImPlayer2OhYesIAm:
  2092.  bsr USEPLR2
  2093. IWasPlayer1:
  2094.  
  2095.  
  2096.  cmp.b #'s',mors
  2097.  beq drawplayer2
  2098.  
  2099.  move.w #0,scaleval
  2100.  
  2101.  move.l PLR1_xoff,xoff
  2102.  move.l PLR1_yoff,yoff
  2103.  move.l PLR1_zoff,zoff
  2104.  move.w PLR1_angpos,angpos
  2105.  move.w PLR1_cosval,cosval
  2106.  move.w PLR1_sinval,sinval
  2107.  
  2108.  
  2109.  move.l PLR1_ListOfGraphRooms,ListOfGraphRooms
  2110.  move.l PLR1_PointsToRotatePtr,PointsToRotatePtr
  2111.  move.l PLR1_Roompt,Roompt
  2112.  
  2113.  bsr OrderZones
  2114.  jsr objmoveanim
  2115.  bsr EnergyBar
  2116.  bsr AmmoBar
  2117.  
  2118.  move.w #0,leftclip
  2119.  move.w #RIGHTX+1,rightclip
  2120.  move.w #0,deftopclip
  2121.  
  2122.  move.w #BOTTOMY,defbotclip
  2123.  move.w #0,topclip
  2124.  move.w #BOTTOMY,botclip
  2125. ; sub.l #10*104*4,frompt
  2126. ; sub.l #10*104*4,midpt
  2127.  
  2128. * Subroom loop
  2129.  
  2130.  
  2131.  bsr DrawDisplay 
  2132.  
  2133.  bra nodrawp2
  2134.  
  2135. drawplayer2
  2136.  
  2137.  move.w #0,scaleval
  2138.  move.l PLR2_xoff,xoff
  2139.  move.l PLR2_yoff,yoff
  2140.  move.l PLR2_zoff,zoff
  2141.  move.w PLR2_angpos,angpos
  2142.  move.w PLR2_cosval,cosval
  2143.  move.w PLR2_sinval,sinval 
  2144.  
  2145.  
  2146.  
  2147.  move.l PLR2_ListOfGraphRooms,ListOfGraphRooms
  2148.  move.l PLR2_PointsToRotatePtr,PointsToRotatePtr
  2149.  move.l PLR2_Roompt,Roompt
  2150.  
  2151.  bsr OrderZones
  2152.  jsr objmoveanim
  2153.  bsr EnergyBar
  2154.  bsr AmmoBar
  2155.  
  2156.  move.w #0,leftclip
  2157.  move.w #RIGHTX+1,rightclip
  2158.  move.w #0,deftopclip
  2159.  move.w #BOTTOMY,defbotclip
  2160.  move.w #0,topclip
  2161.  move.w #BOTTOMY,botclip
  2162.  
  2163.  bsr DrawDisplay
  2164.  
  2165. nodrawp2:
  2166.  
  2167. ***************************************** 
  2168. * Copy from copbuff to chip ram
  2169.  
  2170.  
  2171. ; move.l drawpt,a3
  2172. ; adda.w #10,a3
  2173. ; move.l COPSCRNBUFF,a2
  2174. ; move.w #2,d6
  2175. ; adda.w #10,a2
  2176. ;COPYOUT
  2177. ; move.w #31,d0
  2178. ;COPYDOWN1:
  2179. ; move.w #3,d1
  2180. ; move.l a2,a4
  2181. ; move.l a3,a5
  2182. ;.inlop1:
  2183. ;val SET 0
  2184. ; REPT 20
  2185. ; move.w val(a4),val(a5)
  2186. ;val SET val+104*4
  2187. ; ENDR
  2188. ; adda.l #104*4*20,a4
  2189. ; adda.l #104*4*20,a5
  2190. ; dbra d1,.inlop1
  2191. ; addq #4,a2
  2192. ; addq #4,a3
  2193. ; dbra d0,COPYDOWN1
  2194. ; addq #4,a2
  2195. ; addq #4,a3
  2196. ; dbra d6,COPYOUT 
  2197.  
  2198.  
  2199.  move.l FASTBUFFER,a0
  2200. ; add.l #320*2*20,a0
  2201.  move.l SCRNDRAWPT,a1
  2202. ; add.l #2+40*20,a1
  2203.  move.l #(288/8)-1,d0
  2204.  move.l #239,d1
  2205.  move.w #(320-288)*2,d2
  2206.  move.w #4,d3
  2207.  jsr CHUNKYTOPLANAR 
  2208.  
  2209.  move.l #KeyMap,a5
  2210.  tst.b (a5)
  2211.  beq.s .nosavescrn
  2212.  
  2213.  jsr SAVETHESCREEN
  2214.  
  2215. .nosavescrn:
  2216.  
  2217. ***************************************** 
  2218.  move.l PLR2_Roompt,a0
  2219.  move.l #WorkSpace,a1
  2220.  clr.l (a1)
  2221.  clr.l 4(a1)
  2222.  clr.l 8(a1)
  2223.  clr.l 12(a1)
  2224.  clr.l 16(a1)
  2225.  clr.l 20(a1)
  2226.  clr.l 24(a1)
  2227.  clr.l 28(a1)
  2228.  
  2229.  cmp.b #'n',mors
  2230.  beq.s plr1only
  2231.  
  2232.  lea ToListOfGraph(a0),a0
  2233. .doallrooms:
  2234.  move.w (a0),d0
  2235.  blt.s .allroomsdone
  2236.  addq #8,a0
  2237.  move.w d0,d1
  2238.  asr.w #3,d0
  2239.  bset d1,(a1,d0.w)
  2240.  bra .doallrooms
  2241. .allroomsdone:
  2242.  
  2243. plr1only:
  2244.  
  2245.  move.l PLR1_Roompt,a0
  2246.  lea ToListOfGraph(a0),a0
  2247. .doallrooms2:
  2248.  move.w (a0),d0
  2249.  blt.s .allroomsdone2
  2250.  addq #8,a0
  2251.  move.w d0,d1
  2252.  asr.w #3,d0
  2253.  bset d1,(a1,d0.w)
  2254.  bra .doallrooms2
  2255. .allroomsdone2:
  2256.  
  2257.  move.l #%011110111000101000001,d7
  2258.  lea TEAMWORK,a2
  2259.  move.l ObjectData,a0
  2260.  sub.w #64,a0
  2261. .doallobs:
  2262.  add.w #64,a0
  2263.  move.w (a0),d0
  2264.  blt.s .allobsdone
  2265.  move.w 12(a0),d0
  2266.  blt.s .doallobs
  2267.  move.w d0,d1
  2268.  asr.w #3,d0
  2269.  btst d1,(a1,d0.w)
  2270.  bne.s .worryobj
  2271.  move.b 16(a0),d0
  2272.  btst d0,d7
  2273.  beq.s .doallobs
  2274.  moveq #0,d0
  2275.  move.b teamnumber(a0),d0
  2276.  blt.s .doallobs
  2277.  asl.w #4,d0
  2278.  tst.w SEENBY(a2,d0.w)
  2279.  blt.s .doallobs
  2280. .worryobj:
  2281.  or.b #127,worry(a0)
  2282.  bra.s .doallobs
  2283. .allobsdone:
  2284.  
  2285.  
  2286.  
  2287. ; move.l #brightentab,a0
  2288. ; move.l frompt,a3
  2289. ; adda.w #(4*33)+(104*4*20),a3
  2290. ; move.w #20,d7
  2291. ; move.w #20,d6
  2292. ;horl:
  2293. ; move.w d6,d5
  2294. ; move.l a3,a1
  2295. ;vertl
  2296. ; move.w (a1),d0
  2297. ; move.w (a0,d0.w*2),(a1)
  2298. ; addq #4,a1
  2299. ; dbra d5,vertl
  2300. ; adda.w #104*4,a3
  2301. ; dbra d7,horl
  2302.  
  2303.  move.l #$dff000,a6
  2304.  
  2305. ; move.w #$300,col0(a6)
  2306.  
  2307.  move.l #KeyMap,a5
  2308.  tst.b $45(a5)
  2309.  beq.s noend
  2310.  
  2311.  cmp.b #'s',mors
  2312.  beq plr2quit 
  2313.  
  2314.  st MASTERQUITTING
  2315.  bra noend
  2316.  
  2317. plr2quit:
  2318.  st SLAVEQUITTING
  2319. noend:
  2320.  
  2321.  tst.b MASTERQUITTING
  2322.  beq.s .noquit
  2323.  tst.b SLAVEQUITTING
  2324.  bne endnomusic
  2325. .noquit
  2326.  
  2327.  cmp.b #'n',mors
  2328.  bne.s noexit
  2329.  move.l PLR1_Roompt,a0
  2330.  move.w (a0),d0
  2331.  move.w PLOPT,d1
  2332.  move.l #ENDZONES,a0
  2333.  cmp.w (a0,d1.w*2),d0
  2334.  
  2335. ; change this for quick exit, charlie
  2336. zzzz:
  2337. ; bra end
  2338.  
  2339.  beq end
  2340. noexit:
  2341.  
  2342.  tst.w PLR1_energy
  2343.  ble end
  2344.  tst.w PLR2_energy
  2345.  ble end
  2346.  
  2347. ; move.l SwitchData,a0
  2348. ; tst.b 24+8(a0)
  2349. ; bne end
  2350.   
  2351. ; JSR STOPTIMER
  2352.  
  2353.  bra lop
  2354.  
  2355. SAVETHESCREEN:
  2356.  
  2357.  move.l doslib,a6
  2358.  move.l #SAVENAME,d1
  2359.  move.l #1006,d2
  2360.  jsr -30(a6)
  2361.  move.l d0,handle
  2362.  
  2363.  move.l doslib,a6
  2364.  move.l #scrn,d2
  2365.  move.l handle,d1
  2366.  move.l #10240*8,d3
  2367.  jsr _LVOWrite(a6)
  2368.  
  2369.  move.l doslib,a6
  2370.  move.l handle,d1
  2371.  jsr -36(a6)
  2372.  
  2373.  add.b #1,SAVELETTER
  2374.  
  2375.  rts
  2376.  
  2377. SAVENAME: dc.b 'df0:rawscrn'
  2378. SAVELETTER: dc.b 'd',0
  2379.  
  2380.  even
  2381.  
  2382.  include "ab3:source_4000/CHUNKY.s"
  2383.  
  2384.  
  2385. MASTERQUITTING: dc.b 0
  2386. SLAVEQUITTING: dc.b 0
  2387. MASTERPAUSE: dc.b 0
  2388. SLAVEPAUSE: dc.b 0
  2389.  
  2390. PAUSEOPTS:
  2391.  include "ab3:source_4000/pauseopts"
  2392.  
  2393. ENDZONES:
  2394. ; LEVEL 1
  2395.  dc.w -1
  2396. ; dc.w 55
  2397. ; LEVEL 2
  2398.  dc.w 149
  2399. ; LEVEL 3
  2400.  dc.w 155
  2401. ; LEVEL 4
  2402.  dc.w 107
  2403. ; LEVEL 5
  2404.  dc.w 67
  2405. ; LEVEL 6
  2406.  dc.w 132
  2407. ; LEVEL 7
  2408.  dc.w 203
  2409. ; LEVEL 8
  2410.  dc.w 166
  2411. ; LEVEL 9
  2412.  dc.w 118
  2413. ; LEVEL 10
  2414.  dc.w 102
  2415. ; LEVEL 11
  2416.  dc.w 103
  2417. ; LEVEL 12
  2418.  dc.w 2
  2419. ; LEVEL 13
  2420.  dc.w 98
  2421. ; LEVEL 14
  2422.  dc.w 0
  2423. ; LEVEL 15
  2424.  dc.w 148
  2425. ; LEVEL 16
  2426.  dc.w 103
  2427.  
  2428. ***************************************************************************
  2429. ***************************************************************************
  2430. ****************** End of Main Loop here ********************************** 
  2431. ***************************************************************************
  2432. ***************************************************************************
  2433.  
  2434. putinsmallscr:
  2435.  
  2436.  rts
  2437.  
  2438.  move.l #$1fe0000,statskip
  2439.  move.l #$1fe0000,statskip+4
  2440.  
  2441.  move.l #healthpal,a5
  2442.  move.l COPSCRN1,a0
  2443.  move.l COPSCRN2,a2
  2444.  move.w #scrheight-1,d0
  2445.  move.l #0,d6
  2446.  move.w #0,d3
  2447.  move.w #$2bdf,startwait
  2448.  move.w #$2d01,endwait
  2449. .fillcop
  2450.  move.w #$180,d1
  2451.  
  2452.  move.l a0,a1
  2453.  move.l a2,a3
  2454.  move.w #$10c,(a1)+
  2455.  move.w #$10c,(a3)+
  2456.  move.w d3,(a1)+
  2457.  move.w d3,(a3)+
  2458.  eor.w #$8000,d3
  2459.  
  2460.  move.w #$106,(a1)+
  2461.  move.w #$106,(a3)+
  2462.  move.w #$2c42,d5
  2463.  or.w d3,d5
  2464.  and.w #$fffe,d5
  2465.  move.w d5,(a1)+
  2466.  move.w d5,(a3)+
  2467.  bsr do32
  2468.  
  2469.  move.w #$106,(a1)+
  2470.  move.w #$106,(a3)+
  2471.  move.w #$4c42,d5
  2472.  or.w d3,d5
  2473.  and.w #$fffe,d5
  2474.  move.w d5,(a1)+
  2475.  move.w d5,(a3)+
  2476.  bsr do32
  2477.  
  2478.  move.w #$106,(a1)+
  2479.  move.w #$106,(a3)+
  2480.  move.w #$6c42,d5
  2481.  or.w d3,d5
  2482.  and.w #$fffe,d5
  2483.  move.w d5,(a1)+
  2484.  move.w d5,(a3)+
  2485.  bsr do32
  2486.  
  2487.  
  2488.  move.l #$1060c42,(a1)+
  2489.  move.l #$1060c42,(a3)+
  2490.  move.w #$19e,(a1)+
  2491.  move.w (a5),(a1)+
  2492.  move.w #$19e,(a3)+
  2493.  move.w (a5)+,(a3)+
  2494.  
  2495. **********************************
  2496.  
  2497.  adda.w #104*4,a0
  2498.  adda.w #104*4,a2
  2499.  dbra d0,.fillcop
  2500.  
  2501.  move.w #$48,fetchstart
  2502.  move.w #$88,fetchstop
  2503.  move.w #$2cb1,winstart
  2504.  move.w #$2c91,winstop
  2505.  move.w #-24,modulo
  2506.  move.w #-24,modulo+4
  2507.  
  2508.  move.l #nullspr,d0
  2509.  move.w d0,s4l
  2510.  move.w d0,s5l
  2511.  move.w d0,s6l
  2512.  move.w d0,s7l
  2513.  swap d0
  2514.  move.w d0,s4h
  2515.  move.w d0,s5h
  2516.  move.w d0,s6h
  2517.  move.w d0,s7h 
  2518.  
  2519.  move.l #borders,d0
  2520.  move.w d0,s0l
  2521.  swap d0
  2522.  move.w d0,s0h
  2523.  move.l #borders+2592,d0
  2524.  move.w d0,s1l
  2525.  swap d0
  2526.  move.w d0,s1h
  2527.  move.l #borders+2592*2,d0
  2528.  move.w d0,s2l
  2529.  swap d0
  2530.  move.w d0,s2h
  2531.  move.l #borders+2592*3,d0
  2532.  move.w d0,s3l
  2533.  swap d0
  2534.  move.w d0,s3h
  2535.  
  2536.  
  2537.  move.l #scrn+40,a0
  2538.  move.l #scrn+160,a1
  2539.  move.l #scrn+280,a2
  2540.  move.l #smallscrntab,a3
  2541.  move.w #191,d7    ; counter
  2542.  move.w #0,d1    ; xpos
  2543. .plotscrnloop:
  2544.  move.b (a3)+,d0
  2545.  move.w d1,d2
  2546.  asr.w #3,d2
  2547.  move.b d1,d3
  2548.  not.b d3
  2549.  bclr.b d3,-40(a0,d2.w)
  2550.  bclr.b d3,(a0,d2.w)
  2551.  bclr.b d3,40(a0,d2.w)
  2552.  bclr.b d3,-40(a1,d2.w)
  2553.  bclr.b d3,(a1,d2.w)
  2554.  bclr.b d3,40(a1,d2.w)
  2555.  bclr.b d3,-40(a2,d2.w)
  2556.  btst #0,d0
  2557.  beq.s .nobp1
  2558.  bset.b d3,-40(a0,d2.w)
  2559. .nobp1:
  2560.  btst #1,d0
  2561.  beq.s .nobp2
  2562.  bset.b d3,(a0,d2.w)
  2563. .nobp2:
  2564.  btst #2,d0
  2565.  beq.s .nobp3
  2566.  bset.b d3,40(a0,d2.w)
  2567. .nobp3:
  2568.  btst #3,d0
  2569.  beq.s .nobp4
  2570.  bset.b d3,-40(a1,d2.w)
  2571. .nobp4:
  2572.  btst #4,d0
  2573.  beq.s .nobp5
  2574.  bset.b d3,(a1,d2.w)
  2575. .nobp5:
  2576.  btst #5,d0
  2577.  beq.s .nobp6
  2578.  bset.b d3,40(a1,d2.w)
  2579. .nobp6:
  2580.  btst #6,d0
  2581.  beq.s .nobp7
  2582.  bset.b d3,-40(a2,d2.w)
  2583. .nobp7:
  2584.  
  2585.  addq #1,d1
  2586.  
  2587.  dbra d7,.plotscrnloop
  2588.  
  2589.  
  2590.  rts
  2591.  
  2592. putinlargescr:
  2593.  
  2594.  move.l #$1000000,statskip
  2595.  move.l #$fffffffe,statskip+4
  2596.  
  2597.  move.l #healthpal,a5
  2598.  move.l COPSCRN1,a0
  2599.  move.l COPSCRN2,a2
  2600.  move.w #scrheight-1,d0
  2601.  move.l #0,d6
  2602.  move.w #0,d3
  2603.  move.w #$29df,startwait
  2604.  move.w #$2b01,endwait
  2605. .fillcop
  2606.  move.w #$180,d1
  2607.  
  2608.  move.l a0,a1
  2609.  move.l a2,a3
  2610.  move.w #$10c,(a1)+
  2611.  move.w #$10c,(a3)+
  2612.  move.w d3,(a1)+
  2613.  move.w d3,(a3)+
  2614.  eor.w #$8000,d3
  2615.  
  2616.  move.w #$106,(a1)+
  2617.  move.w #$106,(a3)+
  2618.  move.w #$2c42,d5
  2619.  or.w d3,d5
  2620.  and.w #$fffe,d5
  2621.  move.w d5,(a1)+
  2622.  move.w d5,(a3)+
  2623.  bsr do32
  2624.  
  2625.  move.w #$106,(a1)+
  2626.  move.w #$106,(a3)+
  2627.  move.w #$4c42,d5
  2628.  or.w d3,d5
  2629.  and.w #$fffe,d5
  2630.  move.w d5,(a1)+
  2631.  move.w d5,(a3)+
  2632.  bsr do32
  2633.  
  2634.  move.w #$106,(a1)+
  2635.  move.w #$106,(a3)+
  2636.  move.w #$6c42,d5
  2637.  or.w d3,d5
  2638.  and.w #$fffe,d5
  2639.  move.w d5,(a1)+
  2640.  move.w d5,(a3)+
  2641.  bsr do32
  2642.  
  2643.  move.w startwait,(a1)+
  2644.  move.w #$fffe,(a1)+
  2645.  move.w endwait,(a1)+
  2646.  move.w #$ff00,(a1)+
  2647.  move.w startwait,(a3)+
  2648.  move.w #$fffe,(a3)+
  2649.  move.w endwait,(a3)+
  2650.  move.w #$ff00,(a3)+
  2651.  
  2652. ; move.l $1fe0000,(a1)+
  2653. ; move.l $1fe0000,(a3)+
  2654. ; move.l $1fe0000,(a1)+
  2655. ; move.l $1fe0000,(a3)+
  2656.  
  2657.  
  2658.  add.w #$300,startwait
  2659.  add.w #$300,endwait
  2660.  
  2661. ; move.l #$1060c42,(a1)+
  2662. ; move.l #$1060c42,(a3)+
  2663. ; move.w #$19e,(a1)+
  2664. ; move.w (a5),(a1)+
  2665. ; move.w #$19e,(a3)+
  2666. ; move.w (a5)+,(a3)+
  2667.  
  2668. **********************************
  2669.  
  2670.  adda.w #104*4,a0
  2671.  adda.w #104*4,a2
  2672.  dbra d0,.fillcop
  2673.  
  2674.  move.w #$38,fetchstart
  2675.  move.w #$b8,fetchstop
  2676.  move.w #$2c81,winstart
  2677.  move.w #$2cc1,winstop
  2678.  move.w #-40,modulo
  2679.  move.w #-40,modulo+4
  2680.  
  2681.  move.l #nullspr,d0
  2682.  move.w d0,s0l
  2683.  move.w d0,s1l
  2684.  move.w d0,s2l
  2685.  move.w d0,s3l
  2686.  move.w d0,s4l
  2687.  move.w d0,s5l
  2688.  move.w d0,s6l
  2689.  move.w d0,s7l
  2690.  swap d0
  2691.  move.w d0,s0h
  2692.  move.w d0,s1h
  2693.  move.w d0,s2h
  2694.  move.w d0,s3h
  2695.  move.w d0,s4h
  2696.  move.w d0,s5h
  2697.  move.w d0,s6h
  2698.  move.w d0,s7h 
  2699.  
  2700.  move.l #scrn+40,a0
  2701.  move.l #scrn+160,a1
  2702.  move.l #scrn+280,a2
  2703.  move.l #scrntab,a3
  2704.  move.w #319,d7    ; counter
  2705.  move.w #0,d1    ; xpos
  2706. .plotscrnloop:
  2707.  move.b (a3)+,d0
  2708.  move.w d1,d2
  2709.  asr.w #3,d2
  2710.  move.b d1,d3
  2711.  not.b d3
  2712.  bclr.b d3,-40(a0,d2.w)
  2713.  bclr.b d3,(a0,d2.w)
  2714.  bclr.b d3,40(a0,d2.w)
  2715.  bclr.b d3,-40(a1,d2.w)
  2716.  bclr.b d3,(a1,d2.w)
  2717.  bclr.b d3,40(a1,d2.w)
  2718.  bclr.b d3,-40(a2,d2.w)
  2719.  btst #0,d0
  2720.  beq.s .nobp1
  2721.  bset.b d3,-40(a0,d2.w)
  2722. .nobp1:
  2723.  btst #1,d0
  2724.  beq.s .nobp2
  2725.  bset.b d3,(a0,d2.w)
  2726. .nobp2:
  2727.  btst #2,d0
  2728.  beq.s .nobp3
  2729.  bset.b d3,40(a0,d2.w)
  2730. .nobp3:
  2731.  btst #3,d0
  2732.  beq.s .nobp4
  2733.  bset.b d3,-40(a1,d2.w)
  2734. .nobp4:
  2735.  btst #4,d0
  2736.  beq.s .nobp5
  2737.  bset.b d3,(a1,d2.w)
  2738. .nobp5:
  2739.  btst #5,d0
  2740.  beq.s .nobp6
  2741.  bset.b d3,40(a1,d2.w)
  2742. .nobp6:
  2743.  btst #6,d0
  2744.  beq.s .nobp7
  2745.  bset.b d3,-40(a2,d2.w)
  2746. .nobp7:
  2747.  
  2748.  addq #1,d1
  2749.  
  2750.  dbra d7,.plotscrnloop
  2751.  
  2752.  rts
  2753.  
  2754. CLEARKEYBOARD:
  2755.  move.l #KeyMap,a5
  2756.  moveq #0,d0
  2757.  move.w #15,d1
  2758. clrloo:
  2759.  move.l d0,(a5)+
  2760.  move.l d0,(a5)+
  2761.  move.l d0,(a5)+
  2762.  move.l d0,(a5)+
  2763.  dbra d1,clrloo
  2764.  rts
  2765.  
  2766. READCONTROLS: dc.w 0
  2767.  
  2768. tstststst: dc.w 0
  2769.  
  2770. BollocksRoom:
  2771.  dc.w -1
  2772.  ds.l 50
  2773.  
  2774. GUNYOFFS:
  2775.  dc.w 20
  2776.  dc.w 20
  2777.  dc.w 0
  2778.  dc.w 20
  2779.  dc.w 20
  2780.  dc.w 0
  2781.  dc.w 0
  2782.  dc.w 20
  2783.  
  2784. USEPLR1:
  2785.  
  2786. ***********************************
  2787.  
  2788.  move.l PLR1_Obj,a0 
  2789.  move.l ObjectPoints,a1
  2790.  move.l #ObjRotated,a2
  2791.  move.w (a0),d0
  2792.  move.l PLR1_xoff,(a1,d0.w*8)
  2793.  move.l PLR1_zoff,4(a1,d0.w*8)
  2794.  move.l PLR1_Roompt,a1
  2795.  
  2796.  moveq #0,d2
  2797.  move.b damagetaken(a0),d2
  2798.  beq .notbeenshot
  2799.  move.l #7*2116,hitcol
  2800.  sub.w d2,PLR1_energy
  2801.  movem.l d0-d7/a0-a6,-(a7)
  2802.  move.b #$fb,IDNUM
  2803.  move.w #19,Samplenum
  2804.  clr.b notifplaying
  2805.  move.w #0,Noisex
  2806.  move.w #0,Noisez
  2807.  move.w #100,Noisevol
  2808.  jsr MakeSomeNoise
  2809.  
  2810.  movem.l (a7)+,d0-d7/a0-a6
  2811.  
  2812. .notbeenshot
  2813.  move.b #0,damagetaken(a0)
  2814.  move.b PLR1_energy+1,numlives(a0)
  2815.  
  2816.  move.b PLR1_StoodInTop,ObjInTop(a0)
  2817.  
  2818.  move.w (a1),12(a0)
  2819.  move.w (a1),d2
  2820.  move.l #ZoneBrightTable,a1
  2821.  move.l (a1,d2.w*4),d2
  2822.  tst.b PLR1_StoodInTop
  2823.  bne.s .okinbott
  2824.  swap d2
  2825. .okinbott:
  2826.  
  2827.  move.w d2,2(a0)
  2828.  
  2829.  move.l p1_yoff,d0
  2830.  move.l p1_height,d1
  2831.  asr.l #1,d1
  2832.  add.l d1,d0
  2833.  asr.l #7,d0
  2834.  move.w d0,4(a0)
  2835.  
  2836. ***********************************
  2837.  
  2838.  move.l PLR2_Obj,a0 
  2839.  
  2840.  move.w PLR2_angpos,d0
  2841.  and.w #8190,d0
  2842.  move.w d0,Facing(a0)
  2843.  
  2844.  jsr ViewpointToDraw
  2845.  asl.w #2,d0
  2846.  moveq #0,d1
  2847.  move.b p2_bobble,d1
  2848.  not.b d1
  2849.  lsr.b #3,d1
  2850.  and.b #$3,d1
  2851.  add.w d1,d0
  2852.  move.w d0,10(a0)
  2853.  move.w #10,8(a0)
  2854.  
  2855.  move.l ObjectPoints,a1
  2856.  move.l #ObjRotated,a2
  2857.  move.w (a0),d0
  2858.  move.l PLR2_xoff,(a1,d0.w*8)
  2859.  move.l PLR2_zoff,4(a1,d0.w*8)
  2860.  move.l PLR2_Roompt,a1
  2861.  
  2862.  moveq #0,d2
  2863.  move.b damagetaken(a0),d2
  2864.  beq .notbeenshot2
  2865.  sub.w d2,PLR2_energy
  2866. .notbeenshot2
  2867.  move.b #0,damagetaken(a0)
  2868.  move.b PLR2_energy+1,numlives(a0)
  2869.  
  2870.  move.b PLR2_StoodInTop,ObjInTop(a0)
  2871.  
  2872.  move.w (a1),12(a0)
  2873.  move.w (a1),d2
  2874.  move.l #ZoneBrightTable,a1
  2875.  move.l (a1,d2.w*4),d2
  2876.  tst.b PLR2_StoodInTop
  2877.  bne.s .okinbott2
  2878.  swap d2
  2879. .okinbott2:
  2880.  
  2881.  move.w d2,2(a0)
  2882.  
  2883.  move.l p2_yoff,d0
  2884.  move.l p2_height,d1
  2885.  asr.l #1,d1
  2886.  add.l d1,d0
  2887.  asr.l #7,d0
  2888.  move.w d0,4(a0)
  2889.  
  2890. **********************************
  2891.  
  2892.  
  2893.  move.l PLR1_Obj,a0
  2894.  move.w #-1,12+128(a0)
  2895.  
  2896.  rts
  2897.  
  2898. DRAWINGUN:
  2899.  move.l #Objects+9*16,a0
  2900.  move.l 4(a0),a5    ; ptr
  2901.  move.l 8(a0),a2    ; frames
  2902.  move.l 12(a0),a4    ; pal
  2903.  move.l (a0),a0        ; wad
  2904.  
  2905.  move.l #GunAnims,a1
  2906.  move.l (a1,d0.w*8),a1
  2907.  move.w (a1,d1.w*2),d5    ; frame of anim
  2908.  
  2909.  move.l #GUNYOFFS,a1
  2910.  move.w (a1,d0.w*2),d7    ; yoff
  2911.  move.l FASTBUFFER,a6
  2912.  move.w d7,d6
  2913.  muls #320*2*3,d6
  2914.  add.l d6,a6    ; screen pointer
  2915.  
  2916.  asl.w #2,d0
  2917.  add.w d5,d0    ; frame
  2918.  move.w (a2,d0.w*4),d1    ; xoff
  2919.  
  2920.  lea (a5,d1.w),a5    ; right ptr
  2921.  
  2922.  move.w #95,d0
  2923.  bsr DRAWCHUNK
  2924. ; addq.w #4,a6
  2925. ; move.w #31,d0
  2926. ; bsr DRAWCHUNK
  2927. ; addq.w #4,a6
  2928. ; move.w #31,d0
  2929. ; bsr DRAWCHUNK
  2930.  rts
  2931.  
  2932.  
  2933. DRAWCHUNK:
  2934.  move.w #78,d3
  2935.  sub.w d7,d3
  2936.  move.l a6,a3
  2937.  move.b (a5),d2
  2938.  move.l (a5)+,d1
  2939.  bne.s .noblank
  2940.  addq #6,a6
  2941.  dbra d0,DRAWCHUNK 
  2942.  rts
  2943.  
  2944. .noblank:
  2945.  and.l #$ffffff,d1
  2946.  lea (a0,d1.l),a1
  2947.  cmp.b #1,d2
  2948.  bgt.s thirdd
  2949.  beq.s secc
  2950. .drawdown:
  2951.  move.w (a1)+,d2
  2952.  and.w #%11111,d2
  2953.  beq.s .itsblank
  2954.  move.w (a4,d2.w*2),d4
  2955.  move.w d4,d5
  2956.  move.w d4,(a3)
  2957.  swap d4
  2958.  move.w d5,320*2(a3)
  2959.  move.w d5,d4
  2960.  move.l d4,320*2+2(a3)
  2961.  move.l d4,320*4(a3)
  2962.  move.w d4,320*4+4(a3)
  2963.  move.l d4,2(a3)
  2964. .itsblank
  2965.  add.w #320*2*3,a3
  2966.  dbra d3,.drawdown
  2967.  
  2968.  addq #6,a6
  2969.  dbra d0,DRAWCHUNK
  2970.  rts
  2971.  
  2972. secc:
  2973. .drawdown:
  2974.  move.w (a1)+,d2
  2975.  lsr.w #5,d2
  2976.  and.w #%11111,d2
  2977.  beq.s .itsblank
  2978.  move.w (a4,d2.w*2),d4
  2979.  move.w d4,d5
  2980.  move.w d4,(a3)
  2981.  swap d4
  2982.  move.w d5,320*2(a3)
  2983.  move.w d5,d4
  2984.  move.l d4,320*2+2(a3)
  2985.  move.l d4,320*4(a3)
  2986.  move.w d4,320*4+4(a3)
  2987.  move.l d4,2(a3)
  2988. .itsblank
  2989.  add.w #320*2*3,a3
  2990.  dbra d3,.drawdown
  2991.  
  2992.  addq #6,a6
  2993.  dbra d0,DRAWCHUNK
  2994.  rts
  2995.  
  2996. thirdd:
  2997. .drawdown:
  2998.  move.b (a1),d2
  2999.  addq #2,a1
  3000.  lsr.b #2,d2
  3001.  and.w #%11111,d2
  3002.  beq.s .itsblank
  3003.  move.w (a4,d2.w*2),d4
  3004.  move.w d4,d5
  3005.  move.w d4,(a3)
  3006.  swap d4
  3007.  move.w d5,320*2(a3)
  3008.  move.w d5,d4
  3009.  move.l d4,320*2+2(a3)
  3010.  move.l d4,320*4(a3)
  3011.  move.w d4,320*4+4(a3)
  3012.  move.l d4,2(a3)
  3013.  
  3014. .itsblank
  3015.  add.w #320*2*3,a3
  3016.  dbra d3,.drawdown
  3017.  
  3018.  addq #6,a6
  3019.  dbra d0,DRAWCHUNK
  3020.  rts
  3021.  
  3022.  
  3023.  
  3024. ***************************************************
  3025. **************************************************
  3026.  
  3027. USEPLR2:
  3028.  
  3029.  PROTKCHECK a0
  3030.  
  3031. ***********************************
  3032.  
  3033.  move.l PLR2_Obj,a0 
  3034.  move.l ObjectPoints,a1
  3035.  move.l #ObjRotated,a2
  3036.  move.w (a0),d0
  3037.  move.l PLR2_xoff,(a1,d0.w*8)
  3038.  move.l PLR2_zoff,4(a1,d0.w*8)
  3039.  move.l PLR2_Roompt,a1
  3040.  
  3041.  moveq #0,d2
  3042.  move.b damagetaken(a0),d2
  3043.  beq .notbeenshot
  3044.  move.l #7*2116,hitcol
  3045.  sub.w d2,PLR2_energy
  3046.  movem.l d0-d7/a0-a6,-(a7)
  3047.  move.w #19,Samplenum
  3048.  clr.b notifplaying
  3049.  move.b #$fb,IDNUM
  3050.  move.w #0,Noisex
  3051.  move.w #0,Noisez
  3052.  move.w #100,Noisevol
  3053.  jsr MakeSomeNoise
  3054.  
  3055.  movem.l (a7)+,d0-d7/a0-a6
  3056.  
  3057. .notbeenshot
  3058.  move.b #0,damagetaken(a0)
  3059.  move.b PLR2_energy+1,numlives(a0)
  3060.  
  3061.  move.b PLR2_StoodInTop,ObjInTop(a0)
  3062.  
  3063.  move.w (a1),12(a0)
  3064.  move.w (a1),d2
  3065.  move.l #ZoneBrightTable,a1
  3066.  move.l (a1,d2.w*4),d2
  3067.  tst.b PLR2_StoodInTop
  3068.  bne.s .okinbott
  3069.  swap d2
  3070. .okinbott:
  3071.  
  3072.  move.w d2,2(a0)
  3073.  
  3074.  move.l PLR2_yoff,d0
  3075.  move.l p2_height,d1
  3076.  asr.l #1,d1
  3077.  add.l d1,d0
  3078.  asr.l #7,d0
  3079.  move.w d0,4(a0)
  3080.  
  3081. ***********************************
  3082.  
  3083.  move.l PLR1_Obj,a0 
  3084.  
  3085.  move.w PLR1_angpos,d0
  3086.  and.w #8190,d0
  3087.  move.w d0,Facing(a0)
  3088.  
  3089.  jsr ViewpointToDraw
  3090.  asl.w #2,d0
  3091.  moveq #0,d1
  3092.  move.b p1_bobble,d1
  3093.  not.b d1
  3094.  lsr.b #3,d1
  3095.  and.b #$3,d1
  3096.  add.w d1,d0
  3097.  move.w d0,10(a0)
  3098.  move.w #10,8(a0)
  3099.  
  3100.  move.l ObjectPoints,a1
  3101.  move.l #ObjRotated,a2
  3102.  move.w (a0),d0
  3103.  move.l PLR1_xoff,(a1,d0.w*8)
  3104.  move.l PLR1_zoff,4(a1,d0.w*8)
  3105.  move.l PLR1_Roompt,a1
  3106.  
  3107.  moveq #0,d2
  3108.  move.b damagetaken(a0),d2
  3109.  beq .notbeenshot2
  3110.  sub.w d2,PLR1_energy
  3111. .notbeenshot2
  3112.  move.b #0,damagetaken(a0)
  3113.  move.b PLR1_energy+1,numlives(a0)
  3114.  
  3115.  move.b PLR1_StoodInTop,ObjInTop(a0)
  3116.  
  3117.  move.w (a1),12(a0)
  3118.  move.w (a1),d2
  3119.  move.l #ZoneBrightTable,a1
  3120.  move.l (a1,d2.w*4),d2
  3121.  tst.b PLR1_StoodInTop
  3122.  bne.s .okinbott2
  3123.  swap d2
  3124. .okinbott2:
  3125.  
  3126.  move.w d2,2(a0)
  3127.  
  3128.  move.l PLR1_yoff,d0
  3129.  move.l p1_height,d1
  3130.  asr.l #1,d1
  3131.  add.l d1,d0
  3132.  asr.l #7,d0
  3133.  move.w d0,4(a0)
  3134.  
  3135. **********************************
  3136.  
  3137.  move.l PLR2_Obj,a0
  3138.  move.w #-1,12+64(a0)
  3139.  
  3140.  rts
  3141.  
  3142.  
  3143. GunSelected: dc.b 0
  3144.  even
  3145.  
  3146. GunAnims:
  3147.  dc.l MachineAnim,3
  3148.  dc.l PlasmaAnim,5
  3149.  dc.l RocketAnim,5
  3150.  dc.l FlameThrowerAnim,5
  3151.  dc.l GrenadeAnim,12
  3152.  dc.l 0,0
  3153.  dc.l 0,0
  3154.  dc.l ShotGunAnim,12+19+11+20+1
  3155.  
  3156. MachineAnim:
  3157.  dc.w 0,1,2,3
  3158. PlasmaAnim:
  3159.  dc.w 0,1,2,3,3,3
  3160. RocketAnim:
  3161.  dc.w 0,1,2,3,3,3
  3162. FlameThrowerAnim:
  3163.  dc.w 0,1,2,3,3,3
  3164. GrenadeAnim:
  3165.  dc.w 0,1,1,1,1
  3166.  dc.w 2,2,2,2,3
  3167.  dc.w 3,3,3
  3168. ShotGunAnim:
  3169.  dc.w 0
  3170.  dcb.w 12,2
  3171.  dcb.w 19,1
  3172.  dcb.w 11,2
  3173.  dcb.w 20,0
  3174.  dc.w 3
  3175.  
  3176. GunData: dc.l 0
  3177.  
  3178. PLR1_GunData:
  3179. ; 0=Pistol 1=Big Gun
  3180. ; ammoleft,ammopershot(b),gunnoise(b),ammoinclip(b)
  3181.  
  3182. ; VISIBLE/INSTANT (0/FF)
  3183. ; damage,gotgun(b)
  3184. ; Delay (w), Lifetime of bullet (w)
  3185. ; Click or hold down (0,1)
  3186. ; BulSpd: (w)
  3187.  
  3188. ;0
  3189.  dc.w 0
  3190. ;2
  3191.  dc.b 8,3
  3192. ;4
  3193.  dc.b 15
  3194. ;5
  3195.  dc.b -1
  3196. ;6
  3197.  dc.b 4,$ff
  3198. ;8
  3199.  dc.w 5,-1,1,0
  3200. ;16
  3201.  dc.w 0,0,0
  3202. ;22
  3203.  dc.w 1
  3204.  
  3205.  ds.w 4
  3206.  
  3207. ;PlasmaGun
  3208.  
  3209.  dc.w 0
  3210.  dc.b 8,1
  3211.  dc.b 20
  3212.  dc.b 0
  3213.  dc.b 16,0
  3214.  dc.w 10,-1,0,5
  3215.  dc.w 0,0,0
  3216.  dc.w 1
  3217.  
  3218.  ds.w 4
  3219.  
  3220. ;RocketLauncher
  3221.  
  3222.  dc.w 0
  3223.  dc.b 8,9
  3224.  dc.b 2
  3225.  dc.b 0
  3226.  dc.b 12,0
  3227.  dc.w 30,-1,0,5
  3228.  dc.w 0,0,0
  3229.  dc.w 1
  3230.  
  3231.  
  3232.  ds.w 4
  3233.  
  3234. ; FlameThrower
  3235.  
  3236.  dc.w 90*8
  3237.  dc.b 1,22
  3238.  dc.b 40
  3239.  dc.b 0
  3240.  dc.b 8,$0    
  3241.  dc.w 5,50,1,4
  3242.  dc.w 0,0,0
  3243.  dc.w 1
  3244.  
  3245.  ds.w 4
  3246.  
  3247. ;Grenade launcher
  3248.  
  3249.  
  3250.  dc.w 0
  3251.  dc.b 8,9
  3252.  dc.b 6
  3253.  dc.b 0
  3254.  dc.b 8,0
  3255.  dc.w 50,100,1,5
  3256.  dc.w 60,3
  3257.  dc.w -1000
  3258.  dc.w 1
  3259.  
  3260.  ds.w 4
  3261.  
  3262. ; WORMGUN
  3263.  
  3264.  dc.w 0
  3265.  dc.b 0,0
  3266.  dc.b 0
  3267.  dc.b 0,0
  3268.  dc.w 0,-1,0,5
  3269.  dc.w 0,0
  3270.  dc.w 0
  3271.  dc.w 1
  3272.  ds.w 4
  3273.  
  3274. ; ToughMarineGun
  3275.  
  3276.  dc.w 0
  3277.  dc.b 0,0
  3278.  dc.b 0
  3279.  dc.b 0,0
  3280.  dc.w 0,-1,0,5
  3281.  dc.w 0,0
  3282.  dc.w 0
  3283.  dc.w 1
  3284.  ds.w 4
  3285.  
  3286. ; Shotgun
  3287.  
  3288. ;0
  3289.  dc.w 0
  3290. ;2
  3291.  dc.b 8,21
  3292. ;4
  3293.  dc.b 15
  3294. ;5
  3295.  dc.b -1
  3296. ;6
  3297.  dc.b 4,0
  3298. ;8
  3299.  dc.w 50,-1,1,0
  3300. ;16
  3301.  dc.w 0,0,0
  3302. ;22
  3303.  dc.w 7
  3304.  
  3305.  ds.w 4
  3306.  
  3307. PLR2_GunData:
  3308. ; 0=Pistol 1=Big Gun
  3309. ; ammoleft,ammopershot(b),gunnoise(b),ammoinclip(b)
  3310.  
  3311. ; VISIBLE/INSTANT (0/FF)
  3312. ; damage,gotgun(b)
  3313. ; Delay (w)
  3314.  
  3315. ;0
  3316.  dc.w 0
  3317. ;2
  3318.  dc.b 8,3
  3319. ;4
  3320.  dc.b 15
  3321. ;5
  3322.  dc.b -1
  3323. ;6
  3324.  dc.b 4,$ff
  3325. ;8
  3326.  dc.w 5,-1,1,0
  3327. ;16
  3328.  dc.w 0,0,0
  3329. ;22
  3330.  dc.w 1
  3331.  
  3332.  ds.w 4
  3333.  
  3334. ;PlasmaGun
  3335.  
  3336.  dc.w 0
  3337.  dc.b 8,1
  3338.  dc.b 20
  3339.  dc.b 0
  3340.  dc.b 16,0
  3341.  dc.w 10,-1,0,5
  3342.  dc.w 0,0,0
  3343.  dc.w 1
  3344.  
  3345.  ds.w 4
  3346.  
  3347. ;RocketLauncher
  3348.  
  3349.  dc.w 0
  3350.  dc.b 8,9
  3351.  dc.b 2
  3352.  dc.b 0
  3353.  dc.b 12,0
  3354.  dc.w 30,-1,0,5
  3355.  dc.w 0,0,0
  3356.  dc.w 1
  3357.  
  3358.  
  3359.  ds.w 4
  3360.  
  3361. ; FlameThrower
  3362.  
  3363.  dc.w 90*8
  3364.  dc.b 1,22
  3365.  dc.b 40
  3366.  dc.b 0
  3367.  dc.b 8,$0    
  3368.  dc.w 5,50,1,4
  3369.  dc.w 0,0,0
  3370.  dc.w 1
  3371.  
  3372.  ds.w 4
  3373.  
  3374. ;Grenade launcher
  3375.  
  3376.  
  3377.  dc.w 0
  3378.  dc.b 8,9
  3379.  dc.b 6
  3380.  dc.b 0
  3381.  dc.b 8,0
  3382.  dc.w 50,100,1,5
  3383.  dc.w 60,3
  3384.  dc.w -1000
  3385.  dc.w 1
  3386.  
  3387.  ds.w 4
  3388.  
  3389. ; WORMGUN
  3390.  
  3391.  dc.w 0
  3392.  dc.b 0,0
  3393.  dc.b 0
  3394.  dc.b 0,0
  3395.  dc.w 0,-1,0,5
  3396.  dc.w 0,0
  3397.  dc.w 0
  3398.  dc.w 1
  3399.  ds.w 4
  3400.  
  3401. ; ToughMarineGun
  3402.  
  3403.  dc.w 0
  3404.  dc.b 0,0
  3405.  dc.b 0
  3406.  dc.b 0,0
  3407.  dc.w 0,-1,0,5
  3408.  dc.w 0,0
  3409.  dc.w 0
  3410.  dc.w 1
  3411.  ds.w 4
  3412.  
  3413. ; Shotgun
  3414.  
  3415. ;0
  3416.  dc.w 0
  3417. ;2
  3418.  dc.b 8,21
  3419. ;4
  3420.  dc.b 15
  3421. ;5
  3422.  dc.b -1
  3423. ;6
  3424.  dc.b 4,0
  3425. ;8
  3426.  dc.w 50,-1,1,0
  3427. ;16
  3428.  dc.w 0,0,0
  3429. ;22
  3430.  dc.w 7
  3431.  
  3432.  ds.w 4
  3433.  
  3434.  
  3435.  
  3436. protA: dc.w 0
  3437.  
  3438. Path:
  3439. ; incbin "testpath"
  3440. endpath:
  3441. pathpt: dc.l Path
  3442.  
  3443.  
  3444. PLR1KEYS: dc.b 0
  3445. PLR1PATH: dc.b 0
  3446. PLR1MOUSE: dc.b -1
  3447. PLR1JOY: dc.b 0
  3448. PLR2KEYS: dc.b 0
  3449. PLR2PATH: dc.b 0
  3450. PLR2MOUSE: dc.b -1
  3451. PLR2JOY: dc.b 0
  3452.  
  3453.  even
  3454.  
  3455. PLR1_bobble: dc.w 0
  3456. PLR2_bobble: dc.w 0
  3457. xwobble: dc.l 0
  3458. xwobxoff: dc.w 0
  3459.  
  3460. xwobzoff: dc.w 0
  3461.  
  3462. PLR1_Control:
  3463.  
  3464. ; Take a snapshot of everything.
  3465.  
  3466.  move.l PLR1_xoff,d2
  3467.  move.l d2,PLR1_oldxoff
  3468.  move.l d2,oldx
  3469.  move.l PLR1_zoff,d3
  3470.  move.l d3,PLR1_oldzoff
  3471.  move.l d3,oldz
  3472.  move.l p1_xoff,d0
  3473.  move.l d0,PLR1_xoff
  3474.  move.l d0,newx
  3475.  move.l p1_zoff,d1
  3476.  move.l d1,newz
  3477.  move.l d1,PLR1_zoff
  3478.  
  3479.  move.l p1_height,PLR1_height
  3480.  
  3481.  sub.l d2,d0
  3482.  sub.l d3,d1
  3483.  move.l d0,xdiff
  3484.  move.l d1,zdiff
  3485.  move.w p1_angpos,d0
  3486.  move.w d0,PLR1_angpos
  3487.  
  3488.  move.l #SineTable,a1
  3489.  move.w (a1,d0.w),PLR1_sinval
  3490.  add.w #2048,d0
  3491.  and.w #8190,d0
  3492.  move.w (a1,d0.w),PLR1_cosval
  3493.  
  3494.  move.l p1_yoff,d0
  3495.  move.w p1_bobble,d1
  3496.  move.w (a1,d1.w),d1
  3497.  move.w d1,d3
  3498.  ble.s notnegative
  3499.  neg.w d1
  3500. notnegative:
  3501.  add.w #16384,d1
  3502.  asr.w #4,d1
  3503.  
  3504.  tst.b PLR1_Ducked
  3505.  bne.s .notdouble
  3506.  add.w d1,d1
  3507. .notdouble
  3508.  ext.l d1
  3509.  move.l PLR1_height,d4
  3510.  sub.l d1,d4
  3511.  add.l d1,d0
  3512.  
  3513.  cmp.b #'s',mors
  3514.  beq.s .otherwob
  3515.  asr.w #6,d3
  3516.  ext.l d3
  3517.  move.l d3,xwobble
  3518.  move.w PLR1_sinval,d1
  3519.  muls d3,d1
  3520.  move.w PLR1_cosval,d2
  3521.  muls d3,d2
  3522.  swap d1
  3523.  swap d2
  3524.  asr.w #7,d1
  3525.  move.w d1,xwobxoff
  3526.  asr.w #7,d2
  3527.  neg.w d2
  3528.  move.w d2,xwobzoff
  3529. .otherwob
  3530.  
  3531.  move.l d0,PLR1_yoff
  3532.  move.l d0,newy
  3533.  move.l d0,oldy
  3534.  
  3535.  move.l d4,thingheight
  3536.  move.l #40*256,StepUpVal
  3537.  tst.b PLR1_Ducked
  3538.  beq.s .okbigstep
  3539.  move.l #10*256,StepUpVal
  3540. .okbigstep:
  3541.  
  3542.  move.l #$1000000,StepDownVal
  3543.  
  3544.  move.l PLR1_Roompt,a0
  3545.  move.w ToTelZone(a0),d0
  3546.  blt .noteleport
  3547.  
  3548.  move.w ToTelX(a0),newx
  3549.  move.w ToTelZ(a0),newz
  3550.  move.w #-1,CollId
  3551.  move.l #%111111111111111111,CollideFlags
  3552.  bsr Collision
  3553.  tst.b hitwall
  3554.  beq.s .teleport
  3555.  
  3556.  move.w PLR1_xoff,newx
  3557.  move.w PLR1_zoff,newz
  3558.  bra .noteleport
  3559.  
  3560. .teleport:
  3561.  
  3562.  move.l PLR1_Roompt,a0
  3563.  move.w ToTelZone(a0),d0
  3564.  move.w ToTelX(a0),PLR1_xoff
  3565.  move.w ToTelZ(a0),PLR1_zoff
  3566.  move.l PLR1_yoff,d1
  3567.  sub.l ToZoneFloor(a0),d1
  3568.  move.l ZoneAdds,a0
  3569.  move.l (a0,d0.w*4),a0
  3570.  add.l LEVELDATA,a0
  3571.  move.l a0,PLR1_Roompt
  3572.  add.l ToZoneFloor(a0),d1
  3573.  move.l d1,PLR1s_yoff
  3574.  move.l d1,PLR1_yoff
  3575.  move.l d1,PLR1s_tyoff
  3576.  move.l PLR1_xoff,PLR1s_xoff
  3577.  move.l PLR1_zoff,PLR1s_zoff
  3578.  
  3579.  SAVEREGS
  3580.  move.w #0,Noisex
  3581.  move.w #0,Noisez
  3582.  move.w #26,Samplenum
  3583.  move.w #100,Noisevol
  3584.  move.b #$fa,IDNUM
  3585.  jsr MakeSomeNoise
  3586.  GETREGS
  3587.  
  3588.  bra .cantmove
  3589.  
  3590. .noteleport:
  3591.  
  3592.  move.l PLR1_Roompt,objroom
  3593.  move.w #%100000000,wallflags
  3594.  move.b PLR1_StoodInTop,StoodInTop
  3595.  
  3596.  move.l #%1011111110111000001,CollideFlags
  3597.  move.w #-1,CollId
  3598.  
  3599.  bsr Collision
  3600.  tst.b hitwall
  3601.  beq.s .nothitanything
  3602.  move.w oldx,PLR1_xoff
  3603.  move.w oldz,PLR1_zoff
  3604.  move.l PLR1_xoff,PLR1s_xoff
  3605.  move.l PLR1_zoff,PLR1s_zoff
  3606.  bra .cantmove
  3607. .nothitanything:
  3608.  
  3609.  move.w #40,extlen
  3610.  move.b #0,awayfromwall
  3611.  
  3612.  clr.b exitfirst
  3613.  clr.b wallbounce
  3614.  bsr MoveObject
  3615.  move.b StoodInTop,PLR1_StoodInTop
  3616.  move.l objroom,PLR1_Roompt
  3617.  move.w newx,PLR1_xoff
  3618.  move.w newz,PLR1_zoff
  3619.  move.l PLR1_xoff,PLR1s_xoff
  3620.  move.l PLR1_zoff,PLR1s_zoff
  3621.  
  3622. .cantmove:
  3623.  
  3624.  move.l PLR1_Roompt,a0
  3625.  
  3626.  move.l ToZoneFloor(a0),d0
  3627.  tst.b PLR1_StoodInTop
  3628.  beq.s notintop
  3629.  move.l ToUpperFloor(a0),d0
  3630. notintop:
  3631.  
  3632.  adda.w #ToZonePts,a0
  3633.  sub.l PLR1_height,d0
  3634.  move.l d0,PLR1s_tyoff
  3635.  move.w p1_angpos,tmpangpos
  3636.  
  3637. ; move.l (a0),a0        ; jump to viewpoint list
  3638.  * A0 is pointing at a pointer to list of points to rotate
  3639.  move.w (a0)+,d1
  3640.  ext.l d1
  3641.  add.l PLR1_Roompt,d1
  3642.  move.l d1,PLR1_PointsToRotatePtr
  3643.  tst.w (a0)+
  3644.  sne.s DRAWNGRAPHTOP
  3645.  beq.s nobackgraphics
  3646.  cmp.b #'s',mors
  3647.  beq.s nobackgraphics
  3648.  move.l a0,-(a7)
  3649.  jsr putinbackdrop 
  3650.  move.l (a7)+,a0
  3651. nobackgraphics:
  3652.  adda.w #10,a0
  3653.  move.l a0,PLR1_ListOfGraphRooms
  3654.  
  3655. *************************************************
  3656.  rts
  3657.  
  3658. DRAWNGRAPHTOP
  3659.  
  3660. tstzone: dc.l 0
  3661. CollId: dc.w 0
  3662.  
  3663. PLR2_Control:
  3664.  
  3665.  PROTLCHECK a0
  3666.  
  3667. ; Take a snapshot of everything.
  3668.  
  3669.  move.l PLR2_xoff,d2
  3670.  move.l d2,PLR2_oldxoff
  3671.  move.l d2,oldx
  3672.  move.l PLR2_zoff,d3
  3673.  move.l d3,PLR2_oldzoff
  3674.  move.l d3,oldz
  3675.  move.l p2_xoff,d0
  3676.  move.l d0,PLR2_xoff
  3677.  move.l d0,newx
  3678.  move.l p2_zoff,d1
  3679.  move.l d1,newz
  3680.  move.l d1,PLR2_zoff
  3681.  
  3682.  move.l p2_height,PLR2_height
  3683.  
  3684.  sub.l d2,d0
  3685.  sub.l d3,d1
  3686.  move.l d0,xdiff
  3687.  move.l d1,zdiff
  3688.  move.w p2_angpos,d0
  3689.  move.w d0,PLR2_angpos
  3690.  
  3691.  move.l #SineTable,a1
  3692.  move.w (a1,d0.w),PLR2_sinval
  3693.  add.w #2048,d0
  3694.  and.w #8190,d0
  3695.  move.w (a1,d0.w),PLR2_cosval
  3696.  
  3697.  move.l p2_yoff,d0
  3698.  move.w p2_bobble,d1
  3699.  move.w (a1,d1.w),d1
  3700.  move.w d1,d3
  3701.  ble.s .notnegative
  3702.  neg.w d1
  3703. .notnegative:
  3704.  add.w #16384,d1
  3705.  asr.w #4,d1
  3706.  add.w d1,d1
  3707.  ext.l d1
  3708.  move.l PLR2_height,d4
  3709.  sub.l d1,d4
  3710.  add.l d1,d0
  3711.  
  3712.  cmp.b #'s',mors
  3713.  bne.s .otherwob
  3714.  asr.w #6,d3
  3715.  ext.l d3
  3716.  move.l d3,xwobble
  3717.  move.w PLR2_sinval,d1
  3718.  muls d3,d1
  3719.  move.w PLR2_cosval,d2
  3720.  muls d3,d2
  3721.  swap d1
  3722.  swap d2
  3723.  asr.w #7,d1
  3724.  move.w d1,xwobxoff
  3725.  asr.w #7,d2
  3726.  neg.w d2
  3727.  move.w d2,xwobzoff
  3728. .otherwob
  3729.  
  3730.  move.l d0,PLR2_yoff
  3731.  move.l d0,newy
  3732.  move.l d0,oldy
  3733.  
  3734.  move.l d4,thingheight
  3735.  move.l #40*256,StepUpVal
  3736.  tst.b PLR2_Ducked
  3737.  beq.s .okbigstep
  3738.  move.l #10*256,StepUpVal
  3739. .okbigstep:
  3740.  
  3741.  move.l #$1000000,StepDownVal
  3742.  
  3743.  move.l PLR2_Roompt,a0
  3744.  move.w ToTelZone(a0),d0
  3745.  blt .noteleport
  3746.  
  3747.  move.w ToTelX(a0),newx
  3748.  move.w ToTelZ(a0),newz
  3749.  move.w #-1,CollId
  3750.  move.l #%111111111111111111,CollideFlags
  3751.  bsr Collision
  3752.  tst.b hitwall
  3753.  beq.s .teleport
  3754.  
  3755.  move.w PLR2_xoff,newx
  3756.  move.w PLR2_zoff,newz
  3757.  bra .noteleport
  3758.  
  3759. .teleport:
  3760.  
  3761.  move.l PLR2_Roompt,a0
  3762.  move.w ToTelZone(a0),d0
  3763.  move.w ToTelX(a0),PLR2_xoff
  3764.  move.w ToTelZ(a0),PLR2_zoff
  3765.  move.l PLR2_yoff,d1
  3766.  sub.l ToZoneFloor(a0),d1
  3767.  move.l ZoneAdds,a0
  3768.  move.l (a0,d0.w*4),a0
  3769.  add.l LEVELDATA,a0
  3770.  move.l a0,PLR2_Roompt
  3771.  add.l ToZoneFloor(a0),d1
  3772.  move.l d1,PLR2s_yoff
  3773.  move.l d1,PLR2_yoff
  3774.  move.l d1,PLR2s_tyoff
  3775.  move.l PLR2_xoff,PLR2s_xoff
  3776.  move.l PLR2_zoff,PLR2s_zoff
  3777.  
  3778.  SAVEREGS
  3779.  move.w #0,Noisex
  3780.  move.w #0,Noisez
  3781.  move.w #26,Samplenum
  3782.  move.w #100,Noisevol
  3783.  move.b #$fa,IDNUM
  3784.  jsr MakeSomeNoise
  3785.  GETREGS
  3786.  
  3787.  bra .cantmove
  3788.  
  3789. .noteleport:
  3790.  
  3791.  move.l PLR2_Roompt,objroom
  3792.  move.w #%100000000000,wallflags
  3793.  move.b PLR2_StoodInTop,StoodInTop
  3794.  
  3795.  move.l #%1011111010111100001,CollideFlags
  3796.  move.w #-1,CollId
  3797.  
  3798.  bsr Collision
  3799.  tst.b hitwall
  3800.  beq.s .nothitanything
  3801.  move.w oldx,PLR2_xoff
  3802.  move.w oldz,PLR2_zoff
  3803.  move.l PLR2_xoff,PLR2s_xoff
  3804.  move.l PLR2_zoff,PLR2s_zoff
  3805.  bra .cantmove
  3806. .nothitanything:
  3807.  
  3808.  move.w #40,extlen
  3809.  move.b #0,awayfromwall
  3810.  
  3811.  clr.b exitfirst
  3812.  clr.b wallbounce
  3813.  bsr MoveObject
  3814.  move.b StoodInTop,PLR2_StoodInTop
  3815.  move.l objroom,PLR2_Roompt
  3816.  move.w newx,PLR2_xoff
  3817.  move.w newz,PLR2_zoff
  3818.  move.l PLR2_xoff,PLR2s_xoff
  3819.  move.l PLR2_zoff,PLR2s_zoff
  3820.  
  3821. .cantmove
  3822.  
  3823.  move.l PLR2_Roompt,a0
  3824.  
  3825.  move.l ToZoneFloor(a0),d0
  3826.  tst.b PLR2_StoodInTop
  3827.  beq.s .notintop
  3828.  move.l ToUpperFloor(a0),d0
  3829. .notintop:
  3830.  
  3831.  adda.w #ToZonePts,a0
  3832.  sub.l PLR2_height,d0
  3833.  move.l d0,PLR2s_tyoff
  3834.  move.w p2_angpos,tmpangpos
  3835.  
  3836. ; move.l (a0),a0        ; jump to viewpoint list
  3837.  * A0 is pointing at a pointer to list of points to rotate
  3838.  move.w (a0)+,d1
  3839.  ext.l d1
  3840.  add.l PLR2_Roompt,d1
  3841.  move.l d1,PLR2_PointsToRotatePtr
  3842.  tst.w (a0)+
  3843.  beq.s .nobackgraphics
  3844.  cmp.b #'s',mors
  3845.  bne.s .nobackgraphics
  3846.  move.l a0,-(a7)
  3847.  jsr putinbackdrop 
  3848.  move.l (a7)+,a0
  3849. .nobackgraphics:
  3850.  adda.w #10,a0
  3851.  move.l a0,PLR2_ListOfGraphRooms
  3852.  
  3853. *****************************************************
  3854.  
  3855.  rts
  3856.  
  3857.  
  3858. KeyMap: ds.b 256
  3859.  
  3860. fillscrnwater:
  3861.  dc.w 0
  3862. DONTDOGUN:
  3863.  dc.w 0
  3864.  
  3865.  
  3866. DrawDisplay:
  3867.  
  3868.  
  3869.  clr.b fillscrnwater
  3870.  
  3871.  move.l #SineTable,a0
  3872.  move.w angpos,d0
  3873.  move.w (a0,d0.w),d6
  3874.  adda.w #2048,a0
  3875.  move.w (a0,d0.w),d7
  3876.  move.w d6,sinval
  3877.  move.w d7,cosval
  3878.  
  3879.  move.l #KeyMap,a5
  3880.  moveq #0,d5
  3881.  move.b look_behind_key,d5
  3882.  tst.b (a5,d5.w)
  3883.  sne DONTDOGUN
  3884.  beq.s .nolookback
  3885.  neg.w cosval
  3886.  neg.w sinval
  3887. .nolookback:
  3888.  
  3889.  
  3890.  move.l yoff,d0
  3891.  asr.l #8,d0
  3892.  move.w d0,d1
  3893.  add.w #256-32,d1
  3894.  and.w #255,d1
  3895.  move.w d1,wallyoff
  3896.  asl.w #2,d0
  3897.  move.w d0,flooryoff
  3898.  
  3899.  move.w xoff,d6
  3900.  move.w d6,d3
  3901.  asr.w #1,d3
  3902.  add.w d3,d6
  3903.  asr.w #1,d6
  3904.  move.w d6,xoff34
  3905.  
  3906.  move.w zoff,d6
  3907.  move.w d6,d3
  3908.  asr.w #1,d3
  3909.  add.w d3,d6
  3910.  asr.w #1,d6
  3911.  move.w d6,zoff34
  3912.  
  3913.  bsr RotateLevelPts
  3914.  bsr RotateObjectPts
  3915.  bsr CalcPLR1InLine
  3916.  
  3917.  
  3918.  cmp.b #'n',mors
  3919.  bne.s doplr2too
  3920.  move.l PLR2_Obj,a0
  3921.  move.w #-1,12(a0)
  3922.  move.w #-1,GraphicRoom(a0)
  3923.  bra noplr2either
  3924.  
  3925. doplr2too:
  3926.  bsr CalcPLR2InLine
  3927. noplr2either:
  3928.  
  3929.  move.l endoflist,a0
  3930. subroomloop:
  3931.  move.w -(a0),d7
  3932.  blt jumpoutofrooms
  3933.  
  3934. ; bsr setlrclip
  3935. ; move.w leftclip,d0
  3936. ; cmp.w rightclip,d0
  3937. ; bge subroomloop
  3938.  move.l a0,-(a7)
  3939.  
  3940.  move.l ZoneAdds,a0
  3941.  move.l (a0,d7.w*4),a0
  3942.  add.l LEVELDATA,a0
  3943.  move.l ToZoneRoof(a0),SplitHeight
  3944.  move.l a0,ROOMBACK
  3945.  
  3946.  move.l ZoneGraphAdds,a0
  3947.  move.l 4(a0,d7.w*8),a2
  3948.  move.l (a0,d7.w*8),a0
  3949.  
  3950.  add.l LEVELGRAPHICS,a0
  3951.  add.l LEVELGRAPHICS,a2
  3952.  move.l a2,ThisRoomToDraw+4
  3953.  move.l a0,ThisRoomToDraw
  3954.  
  3955.  move.l ListOfGraphRooms,a1
  3956.  
  3957.  
  3958.  
  3959. finditit:
  3960.  tst.w (a1)
  3961.  blt nomoretodoatall
  3962.  cmp.w (a1),d7
  3963.  beq outoffind
  3964.  adda.w #8,a1
  3965.  bra finditit
  3966.  
  3967. outoffind:
  3968.  
  3969.  move.l a1,-(a7)
  3970.  
  3971.  
  3972.  move.w #0,leftclip
  3973.  move.w #RIGHTX+1,rightclip
  3974.  moveq #0,d7
  3975.  move.w 2(a1),d7
  3976.  blt.s outofrcliplop
  3977.  move.l LEVELCLIPS,a0
  3978.  lea (a0,d7.l*2),a0
  3979.  
  3980.  tst.w (a0)
  3981.  blt outoflcliplop
  3982.  
  3983.  bsr NEWsetlclip
  3984.  
  3985. intolcliplop:        ; clips
  3986.  tst.w (a0)
  3987.  blt outoflcliplop
  3988.  
  3989.  bsr NEWsetlclip 
  3990.  bra intolcliplop
  3991.  
  3992. outoflcliplop:
  3993.  
  3994.  addq #2,a0
  3995.  
  3996.  tst.w (a0)
  3997.  blt outofrcliplop
  3998.  
  3999.  bsr NEWsetrclip
  4000.  
  4001. intorcliplop:        ; clips
  4002.  tst.w (a0)
  4003.  blt outofrcliplop
  4004.  
  4005.  bsr NEWsetrclip 
  4006.  bra intorcliplop
  4007.  
  4008. outofrcliplop:
  4009.  
  4010.  
  4011.  move.w leftclip,d0
  4012.  cmp.w #RIGHTX+1,d0
  4013.  bge dontbothercantseeit
  4014.  move.w rightclip,d1
  4015.  blt dontbothercantseeit
  4016.  cmp.w d1,d0
  4017.  bge dontbothercantseeit
  4018.  
  4019.  move.l yoff,d0
  4020.  cmp.l SplitHeight,d0
  4021.  blt botfirst
  4022.  
  4023.  move.l ThisRoomToDraw+4,a0
  4024.  cmp.l LEVELGRAPHICS,a0
  4025.  beq.s noupperroom
  4026.  st DOUPPER
  4027.  
  4028.  move.l ROOMBACK,a1
  4029.  move.l ToUpperRoof(a1),TOPOFROOM
  4030.  move.l ToUpperFloor(a1),BOTOFROOM
  4031.  
  4032.  move.l #CurrentPointBrights+2,PointBrightsPtr
  4033.  bsr dothisroom
  4034. noupperroom:
  4035.  move.l ThisRoomToDraw,a0
  4036.  clr.b DOUPPER
  4037.  move.l #CurrentPointBrights,PointBrightsPtr
  4038.  
  4039.  move.l ROOMBACK,a1
  4040.  move.l ToZoneRoof(a1),d0
  4041.  move.l d0,TOPOFROOM
  4042.  move.l ToZoneFloor(a1),d1
  4043.  move.l d1,BOTOFROOM
  4044.  
  4045.  move.l ToZoneWater(a1),d2
  4046.  cmp.l yoff,d2
  4047.  blt.s .abovefirst
  4048.  move.l d2,BEFOREWATTOP
  4049.  move.l d1,BEFOREWATBOT
  4050.  move.l d2,AFTERWATBOT
  4051.  move.l d0,AFTERWATTOP
  4052.  bra.s .belowfirst
  4053. .abovefirst:
  4054.  move.l d0,BEFOREWATTOP
  4055.  move.l d2,BEFOREWATBOT
  4056.  move.l d1,AFTERWATBOT
  4057.  move.l d2,AFTERWATTOP
  4058. .belowfirst:
  4059.  
  4060.  bsr dothisroom
  4061.  
  4062.  bra dontbothercantseeit
  4063. botfirst:
  4064.  
  4065.  move.l ThisRoomToDraw,a0
  4066.  clr.b DOUPPER
  4067.  move.l #CurrentPointBrights,PointBrightsPtr
  4068.  
  4069.  move.l ROOMBACK,a1
  4070.  move.l ToZoneRoof(a1),d0
  4071.  move.l d0,TOPOFROOM
  4072.  move.l ToZoneFloor(a1),d1
  4073.  move.l d1,BOTOFROOM
  4074.  
  4075.  move.l ToZoneWater(a1),d2
  4076.  cmp.l yoff,d2
  4077.  blt.s .abovefirst
  4078.  move.l d2,BEFOREWATTOP
  4079.  move.l d1,BEFOREWATBOT
  4080.  move.l d2,AFTERWATBOT
  4081.  move.l d0,AFTERWATTOP
  4082.  bra.s .belowfirst
  4083. .abovefirst:
  4084.  move.l d0,BEFOREWATTOP
  4085.  move.l d2,BEFOREWATBOT
  4086.  move.l d1,AFTERWATBOT
  4087.  move.l d2,AFTERWATTOP
  4088. .belowfirst:
  4089.  
  4090.  
  4091.  bsr dothisroom
  4092.  move.l ThisRoomToDraw+4,a0
  4093.  cmp.l LEVELGRAPHICS,a0
  4094.  beq.s noupperroom2
  4095.  move.l #CurrentPointBrights+2,PointBrightsPtr
  4096.  
  4097.  move.l ROOMBACK,a1
  4098.  move.l ToUpperRoof(a1),TOPOFROOM
  4099.  move.l ToUpperFloor(a1),BOTOFROOM
  4100.  
  4101.  st DOUPPER
  4102.  bsr dothisroom
  4103. noupperroom2:
  4104.  
  4105. dontbothercantseeit:
  4106. pastemp:
  4107.  
  4108.  move.l (a7)+,a1
  4109.  move.l ThisRoomToDraw,a0
  4110.  move.w (a0),d7
  4111.  
  4112.  adda.w #8,a1
  4113.  bra finditit
  4114.  
  4115. nomoretodoatall:
  4116.  
  4117.  move.l (a7)+,a0
  4118.  
  4119.  bra subroomloop
  4120.  
  4121. jumpoutofrooms:
  4122.  
  4123.  tst.b DONTDOGUN
  4124.  bne NOGUNLOOK
  4125.  
  4126.  cmp.b #'s',mors
  4127.  beq.s drawslavegun
  4128.  
  4129.  moveq #0,d0
  4130.  move.b PLR1_GunSelected,d0
  4131.  moveq #0,d1
  4132.  move.b PLR1_GunFrame,d1
  4133.  bsr DRAWINGUN
  4134.  bra drawngun
  4135.  
  4136. drawslavegun
  4137.  moveq #0,d0
  4138.  move.b PLR2_GunSelected,d0
  4139.  moveq #0,d1
  4140.  move.b PLR2_GunFrame,d1
  4141.  bsr DRAWINGUN
  4142.  
  4143. drawngun:
  4144.  
  4145. NOGUNLOOK:
  4146.  
  4147.  moveq #0,d1
  4148.  move.b PLR1_GunFrame,d1
  4149.  sub.w TempFrames,d1
  4150.  bgt.s .nn
  4151.  moveq #0,d1
  4152. .nn
  4153.  move.b d1,PLR1_GunFrame
  4154.  
  4155.  ble.s .donefire
  4156.  sub.b #1,PLR1_GunFrame
  4157. .donefire:
  4158.  
  4159.  moveq #0,d1
  4160.  move.b PLR2_GunFrame,d1
  4161.  sub.w TempFrames,d1
  4162.  bgt.s .nn2
  4163.  moveq #0,d1
  4164. .nn2
  4165.  move.b d2,PLR2_GunFrame
  4166.  
  4167.  ble.s .donefire2
  4168.  sub.b #1,PLR2_GunFrame
  4169. .donefire2:
  4170.  
  4171.  
  4172.  move.w #239,d0
  4173.  move.l FASTBUFFER,a0
  4174.  tst.b fillscrnwater
  4175.  beq nowaterfull
  4176.  bgt oknothalf
  4177.  moveq #119,d0
  4178.  add.l #320*120*2,a0
  4179. oknothalf:
  4180.  
  4181.  bclr.b #1,$bfe001
  4182.  
  4183.  move.l #brightentab+512*4,a2
  4184.  moveq #0,d2
  4185.  
  4186. fw:
  4187.  move.w #287,d1
  4188. fwa:
  4189.  move.b (a0),d2
  4190.  move.w (a2,d2.w*2),(a0)+
  4191.  dbra d1,fwa
  4192.  add.w #32*2,a0
  4193.  dbra d0,fw
  4194.  
  4195. ; move.l frompt,a0
  4196. ; add.l #104*4*60,a0
  4197. ; 
  4198. ; move.w #31,d0
  4199. ;fw:
  4200. ; move.w d5,d1
  4201. ; move.l a0,a1
  4202. ;fwd:
  4203. ;val SET 104*4*19
  4204. ; REPT 20
  4205. ; and.w #$ff,val(a1)
  4206. ;val SET val-104*4
  4207. ; ENDR
  4208. ; sub.l #104*4*20,a1
  4209. ; dbra d1,fwd
  4210. ; addq #4,a0
  4211. ; dbra d0,fw
  4212. ;
  4213. ; addq #4,a0
  4214. ;
  4215. ; move.w #31,d0
  4216. ;sw:
  4217. ; move.w d5,d1
  4218. ; move.l a0,a1
  4219. ;swd:
  4220. ;val SET 104*4*19
  4221. ; REPT 20
  4222. ; and.w #$ff,val(a1)
  4223. ;val SET val-104*4
  4224. ; ENDR
  4225. ; sub.l #104*4*20,a1
  4226. ; dbra d1,swd
  4227. ; addq #4,a0
  4228. ; dbra d0,sw
  4229. ;
  4230. ; addq #4,a0
  4231. ;
  4232. ; move.w #31,d0
  4233. ;tw:
  4234. ; move.w d5,d1
  4235. ; move.l a0,a1
  4236. ;twd:
  4237. ;val SET 104*4*19
  4238. ; REPT 20
  4239. ; and.w #$ff,val(a1)
  4240. ;val SET val-104*4
  4241. ; ENDR
  4242. ; sub.l #104*4*20,a1
  4243. ; dbra d1,twd
  4244. ; addq #4,a0
  4245. ; dbra d0,tw
  4246. ;
  4247.  rts
  4248.  
  4249. nowaterfull:
  4250.  bset.b #1,$bfe001
  4251.  rts
  4252.  
  4253. prot9: dc.w 0
  4254.  
  4255. TempBuffer: ds.l 100 
  4256.  
  4257. ClipTable: ds.l 30
  4258. EndOfClipPt: dc.l 0
  4259. DOUPPER: dc.w 0
  4260.  
  4261. RealTable:
  4262.  dc.l prot1-78935450
  4263.  dc.l prot2-78935450
  4264.  dc.l prot3-78935450
  4265.  dc.l prot4-78935450
  4266.  dc.l prot5-78935450
  4267.  dc.l prot6-78935450
  4268.  dc.l prot7-78935450
  4269.  dc.l prot8-78935450
  4270.  dc.l prot9-78935450
  4271.  dc.l protA-78935450
  4272.  
  4273. dothisroom
  4274.  
  4275.  move.w (a0)+,d0
  4276.  move.w d0,currzone
  4277.  move.l #ZoneBrightTable,a1
  4278.  move.l (a1,d0.w*4),d1
  4279.  tst.b DOUPPER
  4280.  bne.s .okbot
  4281.  swap d1
  4282. .okbot:
  4283.  move.w d1,ZoneBright
  4284.  
  4285. polyloop:
  4286.  move.w (a0)+,d0
  4287.  blt jumpoutofloop
  4288.  beq itsawall
  4289.  cmp.w #3,d0
  4290.  beq itsasetclip
  4291.  blt itsafloor
  4292.  cmp.w #4,d0
  4293.  beq itsanobject
  4294.  cmp.w #5,d0
  4295.  beq itsanarc
  4296.  cmp.w #6,d0
  4297.  beq itsalightbeam
  4298.  cmp.w #7,d0
  4299.  beq.s itswater
  4300.  cmp.w #9,d0
  4301.  ble itsachunkyfloor
  4302.  cmp.w #11,d0
  4303.  ble itsabumpyfloor
  4304.  cmp.w #12,d0
  4305.  beq.s itsbackdrop
  4306.  cmp.w #13,d0
  4307.  beq.s itsaseewall
  4308.  
  4309.  bra polyloop
  4310.  
  4311. itsaseewall:
  4312.  st seethru
  4313.  jsr itsawalldraw
  4314.  bra polyloop
  4315.  
  4316. itsbackdrop:
  4317.  jsr putinbackdrop
  4318.  bra polyloop
  4319.  
  4320. itswater:
  4321.  PROTHCHECK
  4322.  move.w #2,SMALLIT
  4323.  move.w #3,d0
  4324.  clr.b gourfloor
  4325.  move.l #FloorLine,LineToUse
  4326.  st usewater
  4327.  clr.b usebumps
  4328.  jsr itsafloordraw
  4329.  bra polyloop
  4330.  
  4331. itsanarc:
  4332.  jsr CurveDraw
  4333.  bra polyloop
  4334.  
  4335. itsanobject:
  4336.  jsr ObjDraw
  4337.  bra polyloop
  4338.  
  4339. itsalightbeam:
  4340.  jsr LightDraw
  4341.  bra polyloop
  4342.  
  4343. itsabumpyfloor:
  4344.  move.w #1,SMALLIT
  4345.  sub.w #9,d0
  4346.  st usebumps
  4347.  st smoothbumps
  4348.  clr.b usewater
  4349.  move.l #BumpLine,LineToUse
  4350.  jsr itsafloordraw
  4351.  bra polyloop
  4352.  
  4353. itsachunkyfloor:
  4354.  move.w #1,SMALLIT
  4355.  subq.w #7,d0
  4356.  st usebumps
  4357.  sub.w #12,topclip
  4358. ; add.w #10,botclip
  4359.  clr.b smoothbumps
  4360.  clr.b usewater
  4361.  move.l #BumpLine,LineToUse
  4362.  jsr itsafloordraw
  4363.  add.w #12,topclip
  4364. ; sub.w #10,botclip
  4365.  bra polyloop 
  4366.  
  4367. itsafloor:
  4368.  
  4369.  move.w #1,SMALLIT
  4370.  
  4371.  movem.l a0/d0,-(a7)
  4372.  move.l $4.w,a6
  4373.  jsr _LVOSuperState(a6)
  4374.  move.l d0,SSTACK
  4375.  movem.l (a7)+,a0/d0
  4376.  
  4377.  move.l THEFLOORLINE,LineToUse
  4378. * 1,2 = floor/roof
  4379.  clr.b usewater
  4380.  clr.b usebumps
  4381.  move.b GOURSEL,gourfloor    
  4382.  jsr itsafloordraw
  4383.  move.l a0,-(a7)
  4384.  move.l $4.w,a6
  4385.  move.l SSTACK,d0
  4386.  jsr _LVOUserState(a6)
  4387.  move.l (a7)+,a0
  4388.  bra polyloop
  4389. itsasetclip:
  4390.  bra polyloop
  4391. itsawall:
  4392.  clr.b seethru
  4393. ; move.l #stripbuffer,a1
  4394.  jsr itsawalldraw
  4395.  bra polyloop
  4396.  
  4397. jumpoutofloop:
  4398.  rts
  4399.  
  4400. SMALLIT: dc.w 0
  4401. GOURSEL: dc.w 0
  4402. ThisRoomToDraw: dc.l 0,0
  4403. SplitHeight: dc.l 0
  4404.  
  4405.  include "ab3:source_4000/OrderZones"
  4406.  
  4407. ReadMouse:
  4408.  move.l #$dff000,a6
  4409.  clr.l d0
  4410.  clr.l d1
  4411.  move.w $a(a6),d0
  4412.  lsr.w #8,d0
  4413.  ext.l d0
  4414.  move.w d0,d3
  4415.  move.w oldmy,d2
  4416.  sub.w d2,d0
  4417.  
  4418.  cmp.w #127,d0
  4419.  blt nonegy
  4420.  move.w #255,d1
  4421.  sub.w d0,d1
  4422.  move.w d1,d0
  4423.  neg.w d0
  4424. nonegy:
  4425.  
  4426.  cmp.w #-127,d0
  4427.  bge nonegy2
  4428.  move.w #255,d1
  4429.  add.w d0,d1
  4430.  move.w d1,d0
  4431. nonegy2:
  4432.  
  4433.  add.b d0,d2
  4434.  add.w d0,oldy2
  4435.  move.w d2,oldmy
  4436.  move.w d2,d0
  4437.  
  4438.  move.w oldy2,d0
  4439.  move.w d0,ymouse
  4440.  
  4441.  clr.l d0
  4442.  clr.l d1
  4443.  move.w $a(a6),d0
  4444.  ext.w d0
  4445.  ext.l d0
  4446.  move.w d0,d3
  4447.  move.w oldmx,d2
  4448.  sub.w d2,d0
  4449.  
  4450.  cmp.w #127,d0
  4451.  blt nonegx
  4452.  move.w #255,d1
  4453.  sub.w d0,d1
  4454.  move.w d1,d0
  4455.  neg.w d0
  4456. nonegx:
  4457.  
  4458.  cmp.w #-127,d0
  4459.  bge nonegx2
  4460.  move.w #255,d1
  4461.  add.w d0,d1
  4462.  move.w d1,d0
  4463. nonegx2:
  4464.  
  4465.  add.b d0,d2
  4466.  move.w d0,d1
  4467.  move.w d2,oldmx
  4468.  
  4469.  move.w #$0,$dff034
  4470.  
  4471.  add.w d0,oldx2
  4472.  move.w oldx2,d0
  4473.  and.w #2047,d0
  4474.  move.w d0,oldx2
  4475.  
  4476.  asl.w #2,d0
  4477.  sub.w prevx,d0
  4478.  add.w d0,prevx
  4479.  add.w d0,angpos
  4480.  move.w #0,lrs
  4481.  rts
  4482.  
  4483. noturn:
  4484.  
  4485. ; got to move lr instead. 
  4486.  
  4487. ; d1 = speed moved l/r
  4488.  
  4489.  move.w d1,lrs
  4490.  
  4491.  rts
  4492.  
  4493. lrs: dc.w 0
  4494. prevx: dc.w 0
  4495.  
  4496. angpos: dc.w 0
  4497. mang: dc.w 0
  4498. oldymouse: dc.w 0
  4499. xmouse: dc.w 0
  4500. ymouse: dc.w 0
  4501. oldx2: dc.w 0
  4502. oldmx: dc.w 0
  4503. oldmy: dc.w 0
  4504. oldy2: dc.w 0
  4505.  
  4506. RotateLevelPts:
  4507.  
  4508.  move.w sinval,d6
  4509.  swap d6
  4510.  move.w cosval,d6
  4511.  
  4512.  move.l PointsToRotatePtr,a0
  4513.  move.l Points,a3
  4514.  move.l #Rotated,a1
  4515.  move.l #OnScreen,a2
  4516.  move.w xoff,d4
  4517.  move.w zoff,d5
  4518.  
  4519. ; move.w #$c40,$dff106
  4520. ; move.w #$f00,$dff180
  4521.  
  4522. pointrotlop:
  4523.  move.w (a0)+,d7
  4524.  blt.s outofpointrot
  4525.  
  4526.  move.w (a3,d7*4),d0
  4527.  sub.w d4,d0
  4528.  move.w d0,d2
  4529.  move.w 2(a3,d7*4),d1
  4530.  sub.w d5,d1
  4531.  muls d6,d2
  4532.  swap d6
  4533.  move.w d1,d3
  4534.  muls d6,d3
  4535.  sub.l d3,d2
  4536.  add.l d2,d2
  4537.  swap d2
  4538.  ext.l d2
  4539.  asl.l #7,d2
  4540.  add.l xwobble,d2
  4541.  move.l d2,(a1,d7*8)
  4542.  
  4543.  muls d6,d0
  4544.  swap d6
  4545.  muls d6,d1
  4546.  add.l d0,d1
  4547.  asl.l #2,d1
  4548.  swap d1
  4549.  ext.l d1
  4550.  divs #3,d1
  4551.  move.l d1,4(a1,d7*8)
  4552.  
  4553.  tst.w d1
  4554.  bgt.s ptnotbehind
  4555.  tst.w d2
  4556.  bgt.s onrightsomewhere
  4557.  move.w #0,d2
  4558.  bra putin
  4559. onrightsomewhere:
  4560.  move.w #RIGHTX+1,d2
  4561.  bra putin
  4562. ptnotbehind:
  4563.  
  4564.  divs d1,d2
  4565.  add.w #MIDDLEX,d2
  4566. putin:
  4567.  move.w d2,(a2,d7*2)
  4568.  
  4569.  bra pointrotlop
  4570. outofpointrot:
  4571.  
  4572. ; move.w #$c40,$dff106
  4573. ; move.w #$ff0,$dff180
  4574.  
  4575.  rts
  4576.  
  4577. PLR1_ObjDists
  4578.  ds.w 250
  4579. PLR2_ObjDists
  4580.  ds.w 250
  4581.  
  4582. CalcPLR1InLine:
  4583.  
  4584.  move.w PLR1_sinval,d5
  4585.  move.w PLR1_cosval,d6
  4586.  move.l ObjectData,a4
  4587.  move.l ObjectPoints,a0
  4588.  move.w NumObjectPoints,d7
  4589.  move.l #PLR1_ObsInLine,a2
  4590.  move.l #PLR1_ObjDists,a3
  4591.  
  4592. .objpointrotlop:
  4593.  
  4594.  move.w (a0),d0
  4595.  sub.w PLR1_xoff,d0
  4596.  move.w 4(a0),d1
  4597.  addq #8,a0
  4598.  
  4599.  tst.w 12(a4)
  4600.  blt .noworkout
  4601.  
  4602.  moveq #0,d2
  4603.  move.b 16(a4),d2
  4604.  move.l #ColBoxTable,a6
  4605.  lea (a6,d2.w*8),a6
  4606.  
  4607.  sub.w PLR1_zoff,d1
  4608.  move.w d0,d2
  4609.  muls d6,d2
  4610.  move.w d1,d3
  4611.  muls d5,d3
  4612.  sub.l d3,d2
  4613.  add.l d2,d2
  4614.  
  4615.  bgt.s .okh
  4616.  neg.l d2
  4617. .okh:
  4618.  swap d2
  4619.  
  4620.  muls d5,d0
  4621.  muls d6,d1
  4622.  add.l d0,d1
  4623.  asl.l #2,d1
  4624.  swap d1
  4625.  moveq #0,d3
  4626.  
  4627.  tst.w d1
  4628.  ble.s .notinline
  4629.  asr.w #1,d2
  4630.  cmp.w (a6),d2
  4631.  bgt.s .notinline
  4632.  
  4633.  st d3
  4634. .notinline
  4635.  move.b d3,(a2)+
  4636.  
  4637.  move.w d1,(a3)+
  4638.  
  4639.  add.w #64,a4
  4640.  dbra d7,.objpointrotlop
  4641.  
  4642.  rts
  4643.  
  4644. .noworkout:
  4645.  move.b #0,(a2)+
  4646.  move.w #0,(a3)+
  4647.  add.w #64,a4
  4648.  dbra d7,.objpointrotlop
  4649.  rts
  4650.  
  4651.  
  4652. CalcPLR2InLine:
  4653.  
  4654.  move.w PLR2_sinval,d5
  4655.  move.w PLR2_cosval,d6
  4656.  move.l ObjectData,a4
  4657.  move.l ObjectPoints,a0
  4658.  move.w NumObjectPoints,d7
  4659.  move.l #PLR2_ObsInLine,a2
  4660.  move.l #PLR2_ObjDists,a3
  4661.  
  4662. .objpointrotlop:
  4663.  
  4664.  move.w (a0),d0
  4665.  sub.w PLR2_xoff,d0
  4666.  move.w 4(a0),d1
  4667.  addq #8,a0
  4668.  
  4669.  tst.w 12(a4)
  4670.  blt .noworkout
  4671.  
  4672.  moveq #0,d2
  4673.  move.b 16(a4),d2
  4674.  move.l #ColBoxTable,a6
  4675.  lea (a6,d2.w*8),a6
  4676.  
  4677.  sub.w PLR2_zoff,d1
  4678.  move.w d0,d2
  4679.  muls d6,d2
  4680.  move.w d1,d3
  4681.  muls d5,d3
  4682.  sub.l d3,d2
  4683.  add.l d2,d2
  4684.  
  4685.  bgt.s .okh
  4686.  neg.l d2
  4687. .okh:
  4688.  swap d2
  4689.  
  4690.  muls d5,d0
  4691.  muls d6,d1
  4692.  add.l d0,d1
  4693.  asl.l #2,d1
  4694.  swap d1
  4695.  moveq #0,d3
  4696.  
  4697.  tst.w d1
  4698.  ble.s .notinline
  4699.  asr.w #1,d2
  4700.  cmp.w (a6),d2
  4701.  bgt.s .notinline
  4702.  
  4703.  st d3
  4704. .notinline
  4705.  move.b d3,(a2)+
  4706.  
  4707.  move.w d1,(a3)+
  4708.  
  4709.  add.w #64,a4
  4710.  dbra d7,.objpointrotlop
  4711.  
  4712.  rts
  4713.  
  4714. .noworkout:
  4715.  move.w #0,(a3)+
  4716.  move.b #0,(a2)+
  4717.  add.w #64,a4
  4718.  dbra d7,.objpointrotlop
  4719.  rts
  4720.  
  4721.  
  4722. RotateObjectPts:
  4723.  
  4724.  move.w sinval,d5
  4725.  move.w cosval,d6
  4726.  
  4727.  move.l ObjectData,a4
  4728.  move.l ObjectPoints,a0
  4729.  move.w NumObjectPoints,d7
  4730.  move.l #ObjRotated,a1
  4731.  
  4732. .objpointrotlop:
  4733.  
  4734.  move.w (a0),d0
  4735.  sub.w xoff,d0
  4736.  move.w 4(a0),d1
  4737.  addq #8,a0
  4738.  
  4739.  tst.w 12(a4)
  4740.  blt .noworkout
  4741.  
  4742.  sub.w zoff,d1
  4743.  move.w d0,d2
  4744.  muls d6,d2
  4745.  move.w d1,d3
  4746.  muls d5,d3
  4747.  sub.l d3,d2
  4748.  
  4749.  
  4750.  add.l d2,d2
  4751.  swap d2
  4752.  move.w d2,(a1)+
  4753.  
  4754.  muls d5,d0
  4755.  muls d6,d1
  4756.  add.l d0,d1
  4757.  asl.l #2,d1
  4758.  swap d1
  4759.  ext.l d1
  4760.  divs #3,d1
  4761.  moveq #0,d3
  4762.  
  4763.  move.w d1,(a1)+
  4764.  ext.l d2
  4765.  asl.l #7,d2
  4766.  add.l xwobble,d2
  4767.  move.l d2,(a1)+
  4768.  sub.l xwobble,d2
  4769.  
  4770.  add.w #64,a4
  4771.  dbra d7,.objpointrotlop
  4772.  
  4773.  rts
  4774.  
  4775. .noworkout:
  4776.   move.l #0,(a1)+
  4777.   move.l #0,(a1)+
  4778.   add.w #64,a4
  4779.   dbra d7,.objpointrotlop
  4780.   rts
  4781.  
  4782. LightDraw:
  4783.  
  4784.  move.w (a0)+,d0
  4785.  move.w (a0)+,d1
  4786.  move.l #Rotated,a1
  4787.  move.w 6(a1,d0.w*8),d2
  4788.  ble.s oneendbehind
  4789.  move.w 6(a1,d1.w*8),d3
  4790.  bgt.s bothendsinfront
  4791.  
  4792. oneendbehind:
  4793.  rts
  4794. bothendsinfront:
  4795.  
  4796.  move.l #OnScreen,a2
  4797.  move.w (a2,d0.w*2),d0
  4798.  bge.s okleftend
  4799.  moveq #0,d0
  4800. okleftend:
  4801.  move.w (a2,d1.w*2),d1
  4802.  bgt.s somevis
  4803.  rts
  4804. somevis:
  4805.  cmp.w #RIGHTX,d0
  4806.  ble.s somevis2
  4807.  rts
  4808. somevis2:
  4809.  cmp.w #RIGHTX,d1
  4810.  ble.s okrightend
  4811.  move.w #RIGHTX,d1
  4812. okrightend:
  4813.  
  4814.  sub.w d0,d1
  4815.  blt.s wrongbloodywayround
  4816.  move.l #brightentab,a4
  4817.  move.l #objintocop,a1
  4818.  lea (a1,d0.w*2),a1
  4819.  
  4820.  move.l frompt,a3
  4821.  move.w #104*4,d6
  4822.  move.w #79,d2
  4823. lacross:
  4824.  move.w d2,d3
  4825.  move.l a3,a2
  4826.  adda.w (a1)+,a2
  4827. ldown:
  4828.  add.w d6,a2
  4829.  move.w (a2),d7
  4830.  move.w (a4,d7.w*2),(a2)
  4831.  dbra d3,ldown
  4832.  dbra d1,lacross
  4833.  
  4834. wrongbloodywayround:
  4835.  
  4836.  rts
  4837.  
  4838. FaceToPlace: dc.w 0
  4839.  
  4840. Cheese:
  4841.  dc.w 4,15
  4842.  
  4843. FacesList:
  4844.  dc.w 0,4*4
  4845.  dc.w 1,2*4
  4846.  dc.w 0,2*4
  4847.  dc.w 2,2*4
  4848.  dc.w 0,2*4
  4849.  dc.w 1,3*4
  4850.  dc.w 0,2*4
  4851.  dc.w 2,3*4
  4852.  dc.w 0,5*4
  4853.  dc.w 1,2*4
  4854.  dc.w 0,2*4
  4855.  dc.w 2,2*4
  4856.  dc.w 0,2*4
  4857.  dc.w 1,2*4
  4858.  dc.w 0,2*4
  4859.  dc.w 2,3*4
  4860.  dc.w 0,1*4
  4861.  dc.w 1,3*4
  4862.  dc.w 0,1*4
  4863.  dc.w 2,3*4
  4864.  dc.w 0,1*4
  4865.  
  4866. EndOfFacesList:
  4867.  
  4868. FacesPtr:
  4869.  dc.l FacesList
  4870. FacesCounter:
  4871.  dc.w 0
  4872. Expression:
  4873.  dc.w 0
  4874.  
  4875. PlaceFace:
  4876.  
  4877.  move.w FacesCounter,d0
  4878.  subq #1,d0
  4879.  bgt.s NoNewFace
  4880.  
  4881.  move.l FacesPtr,a0
  4882.  
  4883.  move.w 2(a0),d0
  4884.  move.w (a0),Expression
  4885.  addq #4,a0
  4886.  cmp.l #EndOfFacesList,a0
  4887.  blt.s NotFirstFace
  4888.  
  4889.  move.l #FacesList,a0
  4890.  
  4891. NotFirstFace
  4892.  move.l a0,FacesPtr
  4893.  
  4894. NoNewFace:
  4895.  
  4896.  move.w d0,FacesCounter
  4897.  
  4898.  Move.w FaceToPlace,d0
  4899.  muls #5,d0
  4900.  add.w Expression,d0
  4901.  move.l #FacePlace+10,a0
  4902.  move.l #Faces,a1
  4903.  muls #(4*32*5),d0
  4904.  adda.w d0,a1
  4905.  move.w #4,d0
  4906.  move.w #24,d1
  4907.  
  4908.  move.w #4,d3
  4909. bitplaneloop:
  4910.  move.w #31,d2
  4911. PlaceFaceToPlaceInFacePlaceLoop:
  4912.  move.l (a1),(a0)
  4913.  adda.w d0,a1
  4914.  adda.w d1,a0
  4915.  dbra d2,PlaceFaceToPlaceInFacePlaceLoop
  4916.  dbra d3,bitplaneloop
  4917.  
  4918.  rts
  4919.  
  4920. Energy:
  4921.  dc.w 191
  4922. OldEnergy:
  4923.  dc.w 191
  4924. Ammo: dc.w 63
  4925. OldAmmo: dc.w 63
  4926.  
  4927. FullEnergy:
  4928.  move.w #127,Energy
  4929.  move.w #127,OldEnergy
  4930.  move.l #health,a0
  4931.  move.l #borders,a1
  4932.  add.l #25*8*2+6,a1
  4933.  lea 2592(a1),a2
  4934.  move.w #127,d0
  4935. PutInFull:
  4936.  move.b (a0)+,(a1)
  4937.  move.b (a0)+,8(a1)
  4938.  add.w #16,a1
  4939.  move.b (a0)+,(a2)
  4940.  move.b (a0)+,8(a2)
  4941.  add.w #16,a2
  4942.  dbra d0,PutInFull
  4943.  
  4944.  rts
  4945.  
  4946. EnergyBar:
  4947.  
  4948.  move.w Energy,d0
  4949.  bgt.s .noeneg
  4950.  move.w #0,d0
  4951. .noeneg:
  4952.  move.w d0,Energy
  4953.  
  4954.  cmp.w OldEnergy,d0
  4955.  bne.s gottochange
  4956.  
  4957. NoChange
  4958.  rts
  4959.  
  4960. gottochange:
  4961.   
  4962.  blt LessEnergy
  4963.  cmp.w #127,Energy
  4964.  blt.s NotMax
  4965.  move.w #127,Energy
  4966. NotMax:
  4967.  
  4968.  move.w Energy,d0
  4969.  move.w OldEnergy,d2
  4970.  sub.w d0,d2
  4971.  beq.s NoChange    
  4972.  neg.w d2
  4973.  
  4974.  move.w #127,d3
  4975.  sub.w d0,d3
  4976.  
  4977.  move.l #health,a0
  4978.  lea (a0,d3.w*4),a0
  4979.  move.l #borders+25*16+6,a1
  4980.  lsl.w #4,d3
  4981.  add.w d3,a1
  4982.  lea 2592(a1),a2
  4983.  
  4984. EnergyRise:
  4985.  move.b (a0)+,(a1)
  4986.  move.b (a0)+,8(a1)
  4987.  add.w #16,a1
  4988.  move.b (a0)+,(a2)
  4989.  move.b (a0)+,8(a2)
  4990.  add.w #16,a2
  4991.  subq #1,d2
  4992.  bgt.s EnergyRise
  4993.  
  4994.  move.w Energy,OldEnergy
  4995.  
  4996.  rts 
  4997.  
  4998. LessEnergy: 
  4999.  move.w OldEnergy,d2
  5000.  sub.w d0,d2
  5001.  
  5002.  move.w #127,d3
  5003.  sub.w OldEnergy,d3
  5004.  
  5005.  move.l #borders+25*16+6,a1
  5006.  asl.w #4,d3
  5007.  add.w d3,a1
  5008.  lea 2592(a1),a2
  5009.  
  5010. EnergyDrain:
  5011.  move.b #0,(a1)
  5012.  move.b #0,8(a1)
  5013.  move.b #0,(a2)
  5014.  move.b #0,8(a2)
  5015.  add.w #16,a1
  5016.  add.w #16,a2
  5017.  subq #1,d2
  5018.  bgt.s EnergyDrain
  5019.  
  5020.  move.w Energy,OldEnergy
  5021.  
  5022.  rts 
  5023.  
  5024. AmmoBar:
  5025.  
  5026.  move.w Ammo,d0
  5027.  cmp.w OldAmmo,d0
  5028.  bne.s .gottochange
  5029.  
  5030. .NoChange
  5031.  rts
  5032.  
  5033. .gottochange:
  5034.   
  5035.  blt LessAmmo
  5036.  cmp.w #63,Ammo
  5037.  blt.s .NotMax
  5038.  move.w #63,Ammo
  5039. .NotMax:
  5040.  
  5041.  move.w Ammo,d0
  5042.  move.w OldAmmo,d2
  5043.  sub.w d0,d2
  5044.  beq.s .NoChange
  5045.  neg.w d2
  5046.  
  5047.  move.w #63,d3
  5048.  sub.w d0,d3
  5049.  
  5050.  move.l #Ammunition,a0
  5051.  lea (a0,d3.w*8),a0
  5052.  move.l #borders+5184+25*16+1,a1
  5053.  lsl.w #5,d3
  5054.  add.w d3,a1
  5055.  lea 2592(a1),a2
  5056.  
  5057. AmmoRise:
  5058.  move.b (a0)+,(a1)
  5059.  move.b (a0)+,8(a1)
  5060.  add.w #16,a1
  5061.  move.b (a0)+,(a2)
  5062.  move.b (a0)+,8(a2)
  5063.  add.w #16,a2
  5064.  move.b (a0)+,(a1)
  5065.  move.b (a0)+,8(a1)
  5066.  add.w #16,a1
  5067.  move.b (a0)+,(a2)
  5068.  move.b (a0)+,8(a2)
  5069.  add.w #16,a2
  5070.  subq #1,d2
  5071.  bgt.s AmmoRise
  5072.  
  5073.  move.w Ammo,OldAmmo
  5074.  
  5075.  rts 
  5076.  
  5077.  
  5078. LessAmmo: 
  5079.  move.w OldAmmo,d2
  5080.  sub.w d0,d2
  5081.  
  5082.  move.w #63,d3
  5083.  sub.w OldAmmo,d3
  5084.  
  5085.  move.l #borders++5184+25*16+1,a1
  5086.  asl.w #5,d3
  5087.  add.w d3,a1
  5088.  lea 2592(a1),a2
  5089.  
  5090. AmmoDrain:
  5091.  move.b #0,(a1)
  5092.  move.b #0,8(a1)
  5093.  move.b #0,(a2)
  5094.  move.b #0,8(a2)
  5095.  add.w #16,a1
  5096.  add.w #16,a2
  5097.  move.b #0,(a1)
  5098.  move.b #0,8(a1)
  5099.  move.b #0,(a2)
  5100.  move.b #0,8(a2)
  5101.  add.w #16,a1
  5102.  add.w #16,a2
  5103.  subq #1,d2
  5104.  bgt.s AmmoDrain
  5105.  
  5106.  move.w Ammo,OldAmmo
  5107.  
  5108.  rts 
  5109.  
  5110. nulop:
  5111.  move.w #$0010,$dff000+intreq
  5112.  rte
  5113.  
  5114. doanything: dc.w 0
  5115.  
  5116. end:
  5117.      _break #0
  5118.     
  5119.  
  5120.  clr.b dosounds
  5121.  clr.b doanything
  5122.  
  5123.  move.w PLR1_energy,Energy
  5124.  cmp.b #'s',mors
  5125.  bne.s .notsl
  5126.  move.w PLR2_energy,Energy
  5127. .notsl:
  5128.  
  5129.  bsr EnergyBar
  5130.  
  5131.  move.l drawpt,d0
  5132.  move.l olddrawpt,drawpt
  5133.  move.l d0,olddrawpt
  5134.  move.l d0,$dff084
  5135.  
  5136.  
  5137.  cmp.b #'b',Prefsfile+3
  5138.  bne.s .noback
  5139.  jsr mt_end
  5140. .noback
  5141.  tst.w Energy
  5142.  bgt.s wevewon
  5143.  
  5144.  move.l #gameover,mt_data
  5145.  st UseAllChannels
  5146.  clr.b reachedend
  5147.  jsr mt_init
  5148. playgameover:
  5149.  move.l #$dff000,a6
  5150. waitfortop2:
  5151.  
  5152.     
  5153.  btst.b #0,intreqrl(a6)
  5154.  beq waitfortop2
  5155.  move.w #$1,intreq(a6)
  5156.  
  5157.     
  5158.  jsr mt_music
  5159.  
  5160.  
  5161.     
  5162.  tst.b reachedend
  5163.  beq.s playgameover
  5164.  
  5165.  bra wevelost
  5166.  
  5167.  
  5168. wevewon:
  5169.  
  5170.  cmp.b #'n',mors
  5171.  bne.s .nonextlev
  5172.  add.w #1,MAXLEVEL
  5173.  st FINISHEDLEVEL
  5174. .nonextlev:
  5175.  
  5176.  move.l #welldone,mt_data
  5177.  st UseAllChannels
  5178.  clr.b reachedend
  5179.  jsr mt_init
  5180. playwelldone:
  5181.  move.l #$dff000,a6
  5182. waitfortop3:
  5183.  btst.b #0,intreqrl(a6)
  5184.  beq waitfortop3
  5185.  move.w #$1,intreq(a6)
  5186.  
  5187.  jsr mt_music
  5188.  
  5189.  tst.b reachedend
  5190.  beq.s playwelldone
  5191.  
  5192. wevelost:
  5193.  
  5194.  PROTICHECK a0
  5195.  
  5196.  jmp closeeverything 
  5197.  
  5198. endnomusic
  5199.  clr.b doanything
  5200.  cmp.b #'b',Prefsfile+3
  5201.  bne.s .noback
  5202.  jsr mt_end
  5203. .noback
  5204. *******************************
  5205. ; cmp.b #'n',mors
  5206. ; bne.s .nonextlev
  5207. ; cmp.w #15,MAXLEVEL
  5208. ; bge.s .nonextlev
  5209. ; add.w #1,MAXLEVEL
  5210. ; st FINISHEDLEVEL
  5211. ;.nonextlev:
  5212. ******************************
  5213.  
  5214.  jmp closeeverything
  5215.  
  5216. do32:
  5217.  move.w #31,d7
  5218.  move.w #$180,d1
  5219. across:
  5220.  move.w d1,(a1)+
  5221.  move.w d1,(a3)+
  5222.  move.w #0,(a1)+ 
  5223.  move.w #0,(a3)+
  5224.  add.w #2,d1
  5225.  dbra d7,across
  5226.  rts
  5227.  
  5228. string:
  5229.     dc.b    'credits',0
  5230.  
  5231. ENDGAMESCROLL:
  5232.  
  5233.     move.l    4.w,a6
  5234.     move.l    #string,d1
  5235.     moveq    #0,d2
  5236.     moveq    #0,d3
  5237.     jsr    _LVOExecute(a6)
  5238.  
  5239. ; include "endscroll.s"
  5240.  
  5241. ***********************************
  5242.  include "ab3:source_4000/CD32JOY"
  5243.  
  5244.  
  5245.  
  5246. *************************************
  5247. * Set left and right clip values
  5248. *************************************
  5249.  
  5250.  
  5251.  
  5252. NEWsetlclip:
  5253.  move.l #OnScreen,a1
  5254.  move.l #Rotated,a2
  5255.  move.l CONNECT_TABLE,a3
  5256.  
  5257.  move.w (a0),d0
  5258.  bge.s .notignoreleft
  5259.  
  5260. ; move.l #0,(a6)
  5261.  
  5262.  bra .leftnotoktoclip
  5263. .notignoreleft:
  5264.  
  5265.  move.w 6(a2,d0*8),d3    ; left z val
  5266.  bgt.s .leftclipinfront
  5267.  addq #2,a0
  5268.  rts
  5269.  
  5270.  tst.w 6(a2,d0*8)
  5271.  bgt.s .leftnotoktoclip
  5272. .ignoreboth:
  5273. ; move.l #0,(a6)
  5274. ; move.l #96*65536,4(a6)
  5275.  move.w #0,leftclip
  5276.  move.w #RIGHTX+1,rightclip
  5277.  addq #8,a6
  5278.  addq #2,a0
  5279.  rts
  5280.  
  5281. .leftclipinfront:
  5282.  move.w (a1,d0*2),d1    ; left x on screen
  5283.  move.w (a0),d2
  5284.  move.w 2(a3,d2.w*4),d2
  5285.  move.w (a1,d2.w*2),d2
  5286.  cmp.w d1,d2
  5287.  bgt.s .leftnotoktoclip
  5288.  
  5289. ; move.w d1,(a6)
  5290. ; move.w d3,2(a6)
  5291.  cmp.w leftclip,d1
  5292.  ble.s .leftnotoktoclip
  5293.  move.w d1,leftclip
  5294. .leftnotoktoclip:
  5295.  
  5296.  addq #2,a0
  5297.  
  5298.  rts
  5299.  
  5300. NEWsetrclip
  5301.  move.l #OnScreen,a1
  5302.  move.l #Rotated,a2
  5303.  move.l CONNECT_TABLE,a3
  5304.  move.w (a0),d0
  5305.  bge.s .notignoreright
  5306. ; move.w #96,4(a6)
  5307. ; move.w #0,6(a6)
  5308.  move.w #0,d4
  5309.  bra .rightnotoktoclip
  5310. .notignoreright:
  5311.  move.w 6(a2,d0*8),d4    ; right z val
  5312.  bgt.s .rightclipinfront
  5313. ; move.w #96,4(a6)
  5314. ; move.w #0,6(a6)
  5315.  bra.s .rightnotoktoclip
  5316.  
  5317. .rightclipinfront:
  5318.  move.w (a1,d0*2),d1    ; right x on screen
  5319.  move.w (a0),d2
  5320.  move.w (a3,d2.w*4),d2
  5321.  move.w (a1,d2.w*2),d2
  5322.  cmp.w d1,d2
  5323.  blt.s .rightnotoktoclip
  5324. ; move.w d1,4(a6)
  5325. ; move.w d4,6(a6)
  5326.  
  5327.  cmp.w rightclip,d1
  5328.  bge.s .rightnotoktoclip
  5329.  addq #1,d1
  5330.  move.w d1,rightclip
  5331. .rightnotoktoclip:
  5332.  addq #8,a6
  5333.  addq #2,a0
  5334.  rts
  5335.  
  5336. FIRSTsetlrclip:
  5337.  move.l #OnScreen,a1
  5338.  move.l #Rotated,a2
  5339.  
  5340.  move.w (a0)+,d0
  5341.  bge.s .notignoreleft
  5342.  bra .leftnotoktoclip
  5343. .notignoreleft:
  5344.  
  5345.  move.w 6(a2,d0*8),d3    ; left z val
  5346.  bgt.s .leftclipinfront
  5347.  
  5348.  move.w (a0),d0
  5349.  blt.s .ignoreboth
  5350.  tst.w 6(a2,d0*8)
  5351.  bgt.s .leftnotoktoclip
  5352. .ignoreboth
  5353.  move.w #RIGHTX+1,rightclip
  5354.  move.w #0,leftclip
  5355.  addq #2,a0
  5356.  rts
  5357.  
  5358. .leftclipinfront:
  5359.  move.w (a1,d0*2),d1    ; left x on screen
  5360.  cmp.w leftclip,d1
  5361.  ble.s .leftnotoktoclip
  5362.  move.w d1,leftclip
  5363. .leftnotoktoclip:
  5364.  
  5365.  move.w (a0)+,d0
  5366.  bge.s .notignoreright
  5367.  move.w #0,d4
  5368.  bra .rightnotoktoclip
  5369. .notignoreright:
  5370.  move.w 6(a2,d0*8),d4    ; right z val
  5371.  ble.s .rightnotoktoclip
  5372.  
  5373. .rightclipinfront:
  5374.  move.w (a1,d0*2),d1    ; right x on screen
  5375.  addq #1,d1
  5376.  cmp.w rightclip,d1
  5377.  bge.s .rightnotoktoclip
  5378.  move.w d1,rightclip
  5379. .rightnotoktoclip:
  5380.  
  5381. ; move.w leftclip,d0
  5382. ; move.w rightclip,d1
  5383. ; cmp.w d0,d1
  5384. ; bge.s .noswap
  5385. ; move.w #192,rightclip
  5386. ; move.w #0,leftclip
  5387. ;.noswap:
  5388.  
  5389.  rts
  5390.  
  5391.  
  5392. leftclip2: dc.w 0
  5393. rightclip2: dc.w 0
  5394. ZoneBright: dc.w 0
  5395.  
  5396. npolys: dc.w 0
  5397.  
  5398. PLR1_fire: dc.b 0
  5399. PLR2_fire: dc.b 0
  5400.  
  5401. *****************************************************
  5402.  
  5403.  
  5404. pastdata:
  5405. ***********************************
  5406. * This routine animates brightnesses.
  5407.  
  5408.  
  5409. liftpt: dc.l liftanimtab
  5410.  
  5411. brightpt:
  5412.  dc.l brightanimtab
  5413.  
  5414.  
  5415. liftanim:
  5416.  rts
  5417.  
  5418. ******************************
  5419.  include "ab3:source_4000/ObjectMove"
  5420.  include "ab3:source_4000/Anims"
  5421.  include "ab3:source_4000/airoutine.s"
  5422. ******************************
  5423. startpass:
  5424. ; include "ab3:source_4000/password_reloc.s"
  5425. endpass:
  5426.  
  5427. rotanimpt: dc.w 0
  5428. xradd: dc.w 5
  5429. yradd: dc.w 8
  5430. xrpos: dc.w 320
  5431. yrpos: dc.w 320
  5432.  
  5433. rotanim:
  5434.  rts
  5435.  
  5436. option:
  5437.  dc.l 0,0
  5438.  
  5439. ********** WALL STUFF *******************************
  5440.  
  5441.  include "AB3:source_4000/fullscrnwall.s"
  5442.  
  5443. *****************************************************
  5444.  
  5445. ******************************************
  5446. * floor polygon
  5447.  
  5448. numsidestd: dc.w 0
  5449. bottomline: dc.w 0
  5450.  
  5451. checkforwater:
  5452.  tst.b usewater
  5453.  beq.s .notwater
  5454.  
  5455.  move.l Roompt,a1
  5456.  move.w (a1),d7
  5457.  cmp.w currzone,d7
  5458.  bne.s .notwater
  5459.  
  5460.  move.b #$f,fillscrnwater
  5461.  
  5462. .notwater:
  5463.  move.w (a0)+,d6    ; sides-1
  5464.  add.w d6,d6
  5465.  add.w d6,a0
  5466.  add.w #4+6,a0
  5467.  rts
  5468.  
  5469.  rts
  5470.  
  5471. NewCornerBuff:
  5472.  ds.l 100
  5473. CLRNOFLOOR: dc.w 0
  5474.  
  5475. itsafloordraw:
  5476.  
  5477. * If D0 =1 then its a floor otherwise (=2) it's
  5478. * a roof.
  5479.  
  5480.  move.w #0,above
  5481.  move.w (a0)+,d6    ; ypos of poly
  5482.  
  5483.  move.w d6,d7
  5484.  ext.l d7
  5485.  asl.l #6,d7
  5486.  cmp.l TOPOFROOM,d7
  5487.  blt checkforwater
  5488.  cmp.l BOTOFROOM,d7
  5489.  bgt.s dontdrawreturn
  5490.  
  5491.  move.w leftclip(pc),d7
  5492.  cmp.w rightclip(pc),d7
  5493.  bge.s dontdrawreturn
  5494.  
  5495.  move.w botclip,d7
  5496.  sub.w MIDDLEY,d7
  5497.  ble.s dontdrawreturn
  5498.  sub.w flooryoff,d6
  5499.  bgt.s below
  5500.  blt.s aboveplayer
  5501.  
  5502.  tst.b usewater
  5503.  beq.s .notwater
  5504.  
  5505.  move.l Roompt,a1
  5506.  move.w (a1),d7
  5507.  cmp.w currzone,d7
  5508.  
  5509.  bne.s .notwater
  5510.  
  5511.  st fillscrnwater
  5512.  
  5513. .notwater:
  5514.  
  5515.  
  5516. dontdrawreturn:
  5517.  move.w (a0)+,d6    ; sides-1
  5518.  add.w d6,d6
  5519.  add.w d6,a0
  5520.  add.w #4+6,a0
  5521.  rts
  5522. aboveplayer:
  5523.  
  5524.  tst.b usewater
  5525.  beq.s .notwater
  5526.  
  5527.  move.l Roompt,a1
  5528.  move.w (a1),d7
  5529.  cmp.w currzone,d7
  5530.  bne.s .notwater
  5531.  
  5532.  move.b #$f,fillscrnwater
  5533.  
  5534. .notwater:
  5535.  
  5536.  btst #1,d0
  5537.  beq.s dontdrawreturn
  5538.  move.w MIDDLEY,d7
  5539.  sub.w topclip,d7 
  5540.  ble.s dontdrawreturn
  5541.  move.w #1,d0
  5542.  move.w d0,above
  5543.  neg.w d6
  5544. below:
  5545.  btst #0,d0
  5546.  beq.s dontdrawreturn
  5547.  move.w d6,distaddr
  5548.  muls #64,d6
  5549.  move.l d6,ypos
  5550.  divs d7,d6        ; zpos of bottom
  5551.             ; visible line
  5552.  move.w d6,minz
  5553.  move.w d7,bottomline
  5554.  
  5555. ; Go round each point finding out
  5556. ; if it should be visible or not.
  5557.  
  5558.  move.l a0,-(a7)
  5559.  
  5560.  move.w (a0)+,d7    ; number of sides
  5561.  move.l #Rotated,a1
  5562.  move.l #OnScreen,a2
  5563.  move.l #NewCornerBuff,a3
  5564.  moveq #0,d4
  5565.  moveq #0,d5
  5566.  moveq #0,d6
  5567.  clr.b anyclipping
  5568.  
  5569. cornerprocessloop:
  5570.  
  5571.  move.w (a0)+,d0
  5572.  move.w 6(a1,d0.w*8),d1
  5573.  ble  .canttell
  5574.  
  5575.  move.w (a2,d0.w*2),d3
  5576.  cmp.w leftclip,d3
  5577.  bgt.s .nol
  5578.  st d4
  5579.  st anyclipping
  5580.  bra.s .nos
  5581. .nol:
  5582.  cmp.w rightclip,d3
  5583.  blt.s .nor
  5584.  st d6
  5585.  st anyclipping
  5586.  bra.s .nos
  5587. .nor:
  5588.  st d5
  5589. .nos:
  5590.  bra .cantell
  5591.  
  5592. .canttell:
  5593.  st d5
  5594.  st anyclipping
  5595.  
  5596. .cantell:
  5597.  
  5598.  
  5599.  dbra d7,cornerprocessloop
  5600.  
  5601.  move.l (a7)+,a0
  5602.  tst.b d5
  5603.  bne.s somefloortodraw
  5604.  eor.b d4,d6
  5605.  bne dontdrawreturn
  5606.  
  5607. somefloortodraw:
  5608.  
  5609.  tst.b gourfloor
  5610.  bne goursides
  5611.  
  5612.  move.w #300,top
  5613.  move.w #-1,bottom
  5614.  move.w #0,drawit
  5615.  move.l #Rotated,a1
  5616.  move.l #OnScreen,a2
  5617.  move.w (a0)+,d7    ; no of sides
  5618. sideloop:
  5619.  move.w minz,d6
  5620.  move.w (a0)+,d1
  5621.  move.w (a0),d3
  5622.  move.w 6(a1,d1*8),d4    ;first z
  5623.  cmp.w d6,d4
  5624.  bgt firstinfront
  5625.  move.w 6(a1,d3*8),d5    ; sec z
  5626.  cmp.w d6,d5
  5627.  ble bothbehind
  5628. ** line must be on left and partially behind.
  5629.  sub.w d5,d4
  5630.  move.l (a1,d1*8),d0
  5631.  sub.l (a1,d3*8),d0
  5632.  asr.l #7,d0
  5633.  sub.w d5,d6
  5634.  muls d6,d0    ; new x coord
  5635.  divs d4,d0
  5636.  ext.l d0
  5637.  asl.l #7,d0
  5638.  
  5639.  add.l (a1,d3*8),d0
  5640.  move.w minz,d4
  5641.  move.w (a2,d3*2),d2
  5642.  divs d4,d0
  5643.  add.w #MIDDLEX,d0
  5644.  move.l ypos,d3
  5645.  divs d5,d3
  5646.  move.w bottomline,d1 
  5647.  bra lineclipped
  5648.  
  5649. firstinfront:
  5650.  move.w 6(a1,d3*8),d5    ; sec z
  5651.  cmp.w d6,d5
  5652.  bgt bothinfront
  5653. ** line must be on right and partially behind.
  5654.  sub.w d4,d5    ; dz
  5655.  move.l (a1,d3*8),d2
  5656.  sub.l (a1,d1*8),d2    ; dx
  5657.  sub.w d4,d6
  5658.  asr.l #7,d2
  5659.  muls d6,d2    ; new x coord
  5660.  divs d5,d2
  5661.  ext.l d2
  5662.  asl.l #7,d2
  5663.  add.l (a1,d1*8),d2
  5664.  move.w minz,d5
  5665.  move.w (a2,d1*2),d0
  5666.  divs d5,d2
  5667.  add.w #MIDDLEX,d2
  5668.  move.l ypos,d1
  5669.  divs d4,d1
  5670.  move.w bottomline,d3 
  5671.  bra lineclipped
  5672.  
  5673. bothinfront:
  5674.  
  5675. * Also, usefully enough, both are on-screen
  5676. * so no bottom clipping is needed.
  5677.  
  5678.  move.w (a2,d1*2),d0    ; first x
  5679.  move.w (a2,d3*2),d2    ; second x
  5680.  move.l ypos,d1
  5681.  move.l d1,d3
  5682.  divs d4,d1        ; first y
  5683.  divs d5,d3        ; second y
  5684. lineclipped:
  5685.  move.l #rightsidetab,a3
  5686.  cmp.w d1,d3
  5687.  beq lineflat
  5688.  st drawit
  5689.  bgt lineonright
  5690.  move.l #leftsidetab,a3
  5691.  exg d1,d3
  5692.  exg d0,d2
  5693.  
  5694.  lea (a3,d1*2),a3
  5695.  
  5696.  cmp.w top(pc),d1
  5697.  bge.s .nonewtop
  5698.  move.w d1,top
  5699. .nonewtop:
  5700.  cmp.w bottom(pc),d3
  5701.  ble.s .nonewbot
  5702.  move.w d3,bottom
  5703. .nonewbot:
  5704.  
  5705.  sub.w d1,d3    ; dy
  5706.  sub.w d0,d2    ; dx
  5707.  
  5708.  blt .linegoingleft
  5709.  sub.w #1,d0
  5710.  
  5711.  ext.l d2
  5712.  divs d3,d2
  5713.  move.w d2,d6
  5714.  swap d2
  5715.  
  5716. ; moveq #0,d6
  5717. ; sub.w d3,d2
  5718. ; blt.s .noco
  5719. ;.makeco
  5720. ; addq #1,d6
  5721. ; sub.w d3,d2
  5722. ; bge.s .makeco
  5723. ;.noco
  5724. ; add.w d3,d2
  5725.  
  5726.  move.w d3,d4
  5727.  move.w d3,d5
  5728.  subq #1,d5
  5729.  move.w d6,d1
  5730.  addq #1,d1
  5731.  
  5732. .pixlopright:
  5733.  move.w d0,(a3)+
  5734.  sub.w d2,d4
  5735.  bge.s .nobigstep
  5736.  add.w d1,d0
  5737.  add.w d3,d4
  5738.  dbra d5,.pixlopright
  5739.  bra lineflat
  5740. .nobigstep
  5741.  add.w d6,d0
  5742.  dbra d5,.pixlopright
  5743.  bra lineflat
  5744.  
  5745. .linegoingleft:
  5746.  
  5747.  sub.w #1,d0
  5748.  
  5749.  neg.w d2
  5750.  
  5751.  ext.l d2
  5752.  divs d3,d2
  5753.  move.w d2,d6
  5754.  swap d2
  5755.  
  5756.  
  5757. ; moveq #0,d6
  5758. ; sub.w d3,d2
  5759. ; blt.s .nocol
  5760. ;.makecol
  5761. ; addq #1,d6
  5762. ; sub.w d3,d2
  5763. ; bge.s .makecol
  5764. ;.nocol
  5765. ; add.w d3,d2
  5766.  
  5767.  
  5768.  
  5769.  move.w d3,d4
  5770.  move.w d3,d5
  5771.  subq #1,d5
  5772.  
  5773.  move.w d6,d1
  5774.  addq #1,d1
  5775.  
  5776. .pixlopleft:
  5777.  sub.w d2,d4
  5778.  bge.s .nobigstepl
  5779.  sub.w d1,d0
  5780.  add.w d3,d4
  5781.  move.w d0,(a3)+
  5782.  dbra d5,.pixlopleft
  5783.  bra lineflat
  5784.  
  5785. .nobigstepl
  5786.  sub.w d6,d0
  5787.  move.w d0,(a3)+
  5788.  dbra d5,.pixlopleft
  5789.  bra lineflat
  5790.  
  5791. lineonright:
  5792.  
  5793.  lea (a3,d1*2),a3
  5794.  
  5795.  cmp.w top(pc),d1
  5796.  bge.s .nonewtop
  5797.  move.w d1,top
  5798. .nonewtop:
  5799.  cmp.w bottom(pc),d3
  5800.  ble.s .nonewbot
  5801.  move.w d3,bottom
  5802. .nonewbot:
  5803.  
  5804.  sub.w d1,d3    ; dy
  5805.  sub.w d0,d2    ; dx
  5806.  blt .linegoingleft
  5807. ; addq #1,d0
  5808.  ext.l d2
  5809.  divs d3,d2
  5810.  move.w d2,d6
  5811.  swap d2
  5812.  
  5813. ; moveq #0,d6
  5814. ; sub.w d3,d2
  5815. ; blt.s .noco
  5816. ;.makeco
  5817. ; addq #1,d6
  5818. ; sub.w d3,d2
  5819. ; bge.s .makeco
  5820. ;.noco
  5821. ; add.w d3,d2
  5822.  
  5823.  move.w d3,d4
  5824.  move.w d3,d5
  5825.  subq #1,d5
  5826.  move.w d6,d1
  5827.  addq #1,d1
  5828.  
  5829. .pixlopright:
  5830.  sub.w d2,d4
  5831.  bge.s .nobigstep
  5832.  add.w d1,d0
  5833.  add.w d3,d4
  5834.  move.w d0,(a3)+
  5835.  dbra d5,.pixlopright
  5836.  bra lineflat
  5837.  
  5838. .nobigstep
  5839.  add.w d6,d0
  5840.  move.w d0,(a3)+
  5841.  dbra d5,.pixlopright
  5842.  bra lineflat
  5843.  
  5844. .linegoingleft:
  5845. ; addq #1,d0
  5846.  neg.w d2
  5847.  
  5848.  ext.l d2
  5849.  divs d3,d2
  5850.  move.w d2,d6
  5851.  swap d2
  5852.  
  5853.  
  5854. ; moveq #0,d6
  5855. ; sub.w d3,d2
  5856. ; blt.s .nocol
  5857. ;.makecol
  5858. ; addq #1,d6
  5859. ; sub.w d3,d2
  5860. ; bge.s .makecol
  5861. ;.nocol
  5862. ; add.w d3,d2
  5863.  
  5864.  move.w d3,d4
  5865.  move.w d3,d5
  5866.  subq #1,d5
  5867.  move.w d6,d1
  5868.  addq #1,d1
  5869.  
  5870. .pixlopleft:
  5871.  move.w d0,(a3)+
  5872.  sub.w d2,d4
  5873.  bge.s .nobigstepl
  5874.  sub.w d1,d0
  5875.  add.w d3,d4
  5876.  dbra d5,.pixlopleft
  5877.  bra lineflat
  5878.  
  5879. .nobigstepl
  5880.  sub.w d6,d0
  5881.  dbra d5,.pixlopleft
  5882.  
  5883. lineflat:
  5884.  
  5885. bothbehind:
  5886.  dbra d7,sideloop
  5887.  bra pastsides
  5888.  
  5889. fbr: dc.w 0
  5890. sbr: dc.w 0
  5891.  
  5892. goursides:
  5893.  
  5894.  
  5895.  move.w #300,top
  5896.  move.w #-1,bottom
  5897.  move.w #0,drawit
  5898.  move.l #Rotated,a1
  5899.  move.l #OnScreen,a2
  5900.  move.w (a0)+,d7    ; no of sides
  5901. sideloopGOUR:
  5902.  move.w minz,d6
  5903.  move.w (a0)+,d1
  5904.  move.w (a0),d3
  5905.  
  5906.  move.l PointBrightsPtr,a4
  5907.  move.w (a4,d1.w*4),fbr
  5908.  move.w (a4,d3.w*4),sbr
  5909.  
  5910.  
  5911.  
  5912.  
  5913.  
  5914.  
  5915.  
  5916.  
  5917.  
  5918.  
  5919.  
  5920.  move.w 6(a1,d1*8),d4    ;first z
  5921.  cmp.w d6,d4
  5922.  bgt firstinfrontGOUR
  5923.  move.w 6(a1,d3*8),d5    ; sec z
  5924.  cmp.w d6,d5
  5925.  ble bothbehindGOUR
  5926. ** line must be on left and partially behind.
  5927.  sub.w d5,d4
  5928.  
  5929.  move.w fbr,d0
  5930.  sub.w sbr,d0
  5931.  sub.w d5,d6
  5932.  muls d6,d0
  5933.  divs d4,d0
  5934.  add.w sbr,d0
  5935.  move.w d0,fbr
  5936.  
  5937.  move.l (a1,d1*8),d0
  5938.  sub.l (a1,d3*8),d0
  5939.  asr.l #7,d0
  5940.  muls d6,d0    ; new x coord
  5941.  divs d4,d0
  5942.  ext.l d0
  5943.  asl.l #7,d0
  5944.  
  5945.  add.l (a1,d3*8),d0
  5946.  move.w minz,d4
  5947.  move.w (a2,d3*2),d2
  5948.  divs d4,d0
  5949.  add.w #MIDDLEX,d0
  5950.  move.l ypos,d3
  5951.  divs d5,d3
  5952.  
  5953.  move.w bottomline,d1 
  5954.  bra lineclippedGOUR
  5955.  
  5956. firstinfrontGOUR:
  5957.  move.w 6(a1,d3*8),d5    ; sec z
  5958.  cmp.w d6,d5
  5959.  bgt bothinfrontGOUR
  5960. ** line must be on right and partially behind.
  5961.  sub.w d4,d5    ; dz
  5962.  
  5963.  move.w sbr,d2
  5964.  sub.w fbr,d2
  5965.  sub.w d4,d6
  5966.  muls d6,d2
  5967.  divs d5,d2
  5968.  add.w fbr,d2
  5969.  move.w d2,sbr
  5970.  
  5971.  move.l (a1,d3*8),d2
  5972.  sub.l (a1,d1*8),d2    ; dx
  5973.  asr.l #7,d2
  5974.  muls d6,d2    ; new x coord
  5975.  divs d5,d2
  5976.  ext.l d2
  5977.  asl.l #7,d2
  5978.  add.l (a1,d1*8),d2
  5979.  move.w minz,d5
  5980.  move.w (a2,d1*2),d0
  5981.  divs d5,d2
  5982.  add.w #MIDDLEX,d2
  5983.  move.l ypos,d1
  5984.  divs d4,d1
  5985.  move.w bottomline,d3 
  5986.  bra lineclippedGOUR
  5987.  
  5988. bothinfrontGOUR:
  5989.  
  5990. * Also, usefully enough, both are on-screen
  5991. * so no bottom clipping is needed.
  5992.  
  5993.  move.w (a2,d1*2),d0    ; first x
  5994.  move.w (a2,d3*2),d2    ; second x
  5995.  move.l ypos,d1
  5996.  move.l d1,d3
  5997.  divs d4,d1        ; first y
  5998.  divs d5,d3        ; second y
  5999. lineclippedGOUR:
  6000.  move.l #rightsidetab,a3
  6001.  cmp.w d1,d3
  6002.  bne linenotflatGOUR
  6003.  
  6004. ; move.w fbr,d4
  6005. ; move.w sbr,d5
  6006. ; cmp.w d0,d2
  6007. ; bgt.s .nsw
  6008. ; exg d4,d5
  6009. ;.nsw:
  6010.  
  6011. ; move.l #leftbrighttab,a3
  6012. ; move.w d4,(a3,d3.w)
  6013. ; move.l #rightbrighttab,a3
  6014. ; move.w d5,(a3,d3.w) 
  6015.  bra lineflatGOUR
  6016.  
  6017. linenotflatGOUR
  6018.  st drawit
  6019.  bgt lineonrightGOUR
  6020.  move.l #leftsidetab,a3
  6021.  exg d1,d3
  6022.  exg d0,d2
  6023.  
  6024.  lea (a3,d1*2),a3
  6025.  lea leftbrighttab-leftsidetab(a3),a4
  6026.  
  6027.  cmp.w top(pc),d1
  6028.  bge.s .nonewtop
  6029.  move.w d1,top
  6030. .nonewtop:
  6031.  cmp.w bottom(pc),d3
  6032.  ble.s .nonewbot
  6033.  move.w d3,bottom
  6034. .nonewbot:
  6035.  
  6036.  sub.w d1,d3    ; dy
  6037.  sub.w d0,d2    ; dx
  6038.  
  6039.  blt .linegoingleft
  6040.  sub.w #1,d0
  6041.  ext.l d2
  6042.  divs d3,d2
  6043.  move.w d2,d6
  6044.  swap d2
  6045.  move.w d2,a5
  6046.  
  6047. ; moveq #0,d6
  6048. ; sub.w d3,d2
  6049. ; blt.s .noco
  6050. ;.makeco
  6051. ; addq #1,d6
  6052. ; sub.w d3,d2
  6053. ; bge.s .makeco
  6054. ;.noco
  6055. ; add.w d3,d2
  6056.  
  6057.  move.w d3,d4
  6058.  move.w d3,d5
  6059.  subq #1,d5
  6060.  move.w d6,d1
  6061.  addq #1,d1
  6062.  move.w d1,a6
  6063.  
  6064.  moveq #0,d1
  6065.  move.w sbr,d1
  6066.  move.w fbr,d2
  6067.  sub.w d1,d2
  6068.  ext.l d2
  6069.  asl.w #8,d2
  6070.  asl.w #2,d2
  6071.  divs d3,d2 
  6072.  ext.l d2
  6073.  asl.l #6,d2
  6074.  swap d1
  6075.  
  6076. .pixlopright:
  6077.  move.w d0,(a3)+
  6078.  swap d1
  6079.  move.w d1,(a4)+
  6080.  swap d1
  6081.  add.l d2,d1
  6082.  
  6083.  sub.w a5,d4
  6084.  bge.s .nobigstep
  6085.  add.w a6,d0
  6086.  add.w d3,d4
  6087.  dbra d5,.pixlopright
  6088.  bra lineflatGOUR
  6089. .nobigstep
  6090.  
  6091.  add.w d6,d0
  6092.  dbra d5,.pixlopright
  6093.  bra lineflatGOUR
  6094.  
  6095. .linegoingleft:
  6096.  sub.w #1,d0
  6097.  neg.w d2
  6098.  
  6099.  ext.l d2
  6100.  divs d3,d2
  6101.  move.w d2,d6
  6102.  swap d2
  6103.  
  6104.  
  6105. ; moveq #0,d6
  6106. ; sub.w d3,d2
  6107. ; blt.s .nocol
  6108. ;.makecol
  6109. ; addq #1,d6
  6110. ; sub.w d3,d2
  6111. ; bge.s .makecol
  6112. ;.nocol
  6113. ; add.w d3,d2
  6114.  
  6115.  move.w d3,d4
  6116.  move.w d3,d5
  6117.  subq #1,d5
  6118.  
  6119.  move.w d6,d1
  6120.  addq #1,d1
  6121.  move.w d1,a6
  6122.  move.w d2,a5
  6123.  
  6124.  moveq #0,d1
  6125.  move.w sbr,d1
  6126.  move.w fbr,d2
  6127.  sub.w d1,d2
  6128.  ext.l d2
  6129.  asl.w #8,d2
  6130.  asl.w #2,d2
  6131.  divs d3,d2 
  6132.  ext.l d2
  6133.  asl.l #6,d2
  6134.  swap d1
  6135.  
  6136. .pixlopleft:
  6137.  
  6138.  swap d1
  6139.  move.w d1,(a4)+
  6140.  swap d1
  6141.  add.l d2,d1
  6142.  
  6143.  sub.w a5,d4
  6144.  bge.s .nobigstepl
  6145.  sub.w a6,d0
  6146.  add.w d3,d4
  6147.  move.w d0,(a3)+
  6148.  dbra d5,.pixlopleft
  6149.  bra lineflatGOUR
  6150.  
  6151. .nobigstepl
  6152.  sub.w d6,d0
  6153.  move.w d0,(a3)+
  6154.  dbra d5,.pixlopleft
  6155.  bra lineflatGOUR
  6156.  
  6157. lineonrightGOUR:
  6158.  
  6159.  lea (a3,d1*2),a3
  6160.  
  6161.  lea rightbrighttab-rightsidetab(a3),a4
  6162.  
  6163.  cmp.w top(pc),d1
  6164.  bge.s .nonewtop
  6165.  move.w d1,top
  6166. .nonewtop:
  6167.  cmp.w bottom(pc),d3
  6168.  ble.s .nonewbot
  6169.  move.w d3,bottom
  6170. .nonewbot:
  6171.  
  6172.  sub.w d1,d3    ; dy
  6173.  sub.w d0,d2    ; dx
  6174.  blt .linegoingleft
  6175. ; addq #1,d0
  6176.  ext.l d2
  6177.  divs d3,d2
  6178.  move.w d2,d6
  6179.  swap d2
  6180.  
  6181. ; moveq #0,d6
  6182. ; sub.w d3,d2
  6183. ; blt.s .noco
  6184. ;.makeco
  6185. ; addq #1,d6
  6186. ; sub.w d3,d2
  6187. ; bge.s .makeco
  6188. ;.noco
  6189. ; add.w d3,d2
  6190.  
  6191.  move.w d3,d4
  6192.  move.w d3,d5
  6193.  subq #1,d5
  6194.  move.w d6,d1
  6195.  addq #1,d1
  6196.  
  6197.  move.w d1,a6
  6198.  move.w d2,a5
  6199.  
  6200.  moveq #0,d1
  6201.  move.w fbr,d1
  6202.  move.w sbr,d2
  6203.  sub.w d1,d2
  6204.  ext.l d2
  6205.  asl.w #8,d2
  6206.  asl.w #2,d2
  6207.  divs d3,d2 
  6208.  ext.l d2
  6209.  asl.l #6,d2
  6210.  swap d1
  6211.  
  6212. .pixlopright:
  6213.  
  6214.  swap d1
  6215.  move.w d1,(a4)+
  6216.  swap d1
  6217.  add.l d2,d1
  6218.  
  6219.  sub.w a5,d4
  6220.  bge.s .nobigstep
  6221.  add.w a6,d0
  6222.  add.w d3,d4
  6223.  move.w d0,(a3)+
  6224.  dbra d5,.pixlopright
  6225.  bra lineflatGOUR
  6226.  
  6227. .nobigstep
  6228.  add.w d6,d0
  6229.  move.w d0,(a3)+
  6230.  dbra d5,.pixlopright
  6231.  bra lineflatGOUR
  6232.  
  6233. .linegoingleft:
  6234. ; addq #1,d0
  6235.  neg.w d2
  6236.  
  6237.  ext.l d2
  6238.  divs d3,d2
  6239.  move.w d2,d6
  6240.  swap d2
  6241.  
  6242.  
  6243. ; moveq #0,d6
  6244. ; sub.w d3,d2
  6245. ; blt.s .nocol
  6246. ;.makecol
  6247. ; addq #1,d6
  6248. ; sub.w d3,d2
  6249. ; bge.s .makecol
  6250. ;.nocol
  6251. ; add.w d3,d2
  6252.  
  6253.  move.w d3,d4
  6254.  move.w d3,d5
  6255.  subq #1,d5
  6256.  move.w d6,d1
  6257.  addq #1,d1
  6258.  move.w d1,a6
  6259.  move.w d2,a5
  6260.  
  6261.  moveq #0,d1
  6262.  move.w fbr,d1
  6263.  move.w sbr,d2
  6264.  sub.w d1,d2
  6265.  ext.l d2
  6266.  asl.w #8,d2
  6267.  asl.w #2,d2
  6268.  divs d3,d2 
  6269.  ext.l d2
  6270.  asl.l #6,d2
  6271.  swap d1
  6272.  
  6273. .pixlopleft:
  6274.  
  6275.  swap d1
  6276.  move.w d1,(a4)+
  6277.  swap d1
  6278.  add.l d2,d1
  6279.  
  6280.  move.w d0,(a3)+
  6281.  sub.w a5,d4
  6282.  bge.s .nobigstepl
  6283.  sub.w a6,d0
  6284.  add.w d3,d4
  6285.  dbra d5,.pixlopleft
  6286.  bra lineflatGOUR
  6287.  
  6288. .nobigstepl
  6289.  sub.w d6,d0
  6290.  dbra d5,.pixlopleft
  6291.  
  6292. lineflatGOUR:
  6293.  
  6294. bothbehindGOUR:
  6295.  dbra d7,sideloopGOUR
  6296.  
  6297. pastsides:
  6298.  
  6299.  
  6300.  addq #2,a0
  6301.  
  6302.  move.w #320*2,linedir
  6303.  move.l FASTBUFFER,a6
  6304.  add.l BIGMIDDLEY,a6
  6305.  move.w (a0)+,d6
  6306.  add.w SMALLIT,d6
  6307.  move.w d6,scaleval
  6308.  move.w (a0)+,whichtile
  6309.  move.w (a0)+,d6
  6310.  add.w ZoneBright,d6
  6311.  move.w d6,lighttype
  6312.  move.w above(pc),d6
  6313.  beq groundfloor
  6314. * on ceiling:
  6315.  move.w #-320*2,linedir
  6316.  suba.w #320*2,a6
  6317. groundfloor:
  6318.  
  6319.  move.w xoff,d6
  6320.  move.w zoff,d7
  6321.  add.w xwobxoff,d7
  6322.  add.w xwobzoff,d6
  6323.  ext.l d6
  6324.  ext.l d7
  6325.  divs #3,d6
  6326.  divs #3,d7
  6327. ; asr.w #1,d6
  6328. ; asr.w #1,d7
  6329.  swap d6
  6330.  swap d7
  6331.  clr.w d6
  6332.  clr.w d7
  6333.  move.w scaleval(pc),d3
  6334.  beq.s .samescale
  6335.  bgt.s .scaledown
  6336.  neg.w d3
  6337.  asr.l d3,d7
  6338.  asr.l d3,d6
  6339.  bra.s .samescale
  6340. .scaledown:
  6341.  asl.l d3,d6
  6342.  asl.l d3,d7
  6343. .samescale
  6344.  move.l d6,sxoff
  6345.  move.l d7,szoff
  6346.  bra pastscale 
  6347.  
  6348.  asr.l #3,d1
  6349.  asr.l #3,d2
  6350.  asr.l #2,d1
  6351.  asr.l #2,d2
  6352.  asr.l #1,d1
  6353.  asr.l #1,d2
  6354. scaleprogfrom
  6355.  nop
  6356.  nop
  6357.  asl.l #1,d1
  6358.  asl.l #1,d2
  6359.  asl.l #2,d1
  6360.  asl.l #2,d2
  6361.  asl.l #3,d1
  6362.  asl.l #3,d2
  6363.  
  6364. top: dc.w 0
  6365. bottom: dc.w 0
  6366. ypos: dc.l 0
  6367. nfloors: dc.w 0
  6368. lighttype: dc.w 0
  6369. above: dc.w 0 
  6370. linedir: dc.w 0
  6371. distaddr: dc.w 0
  6372.  
  6373. minz: dc.w 0
  6374. leftsidetab:
  6375.  ds.w 256*2
  6376. rightsidetab:
  6377.  ds.w 256*2
  6378. leftbrighttab:
  6379.  ds.w 256*2
  6380. rightbrighttab:
  6381.  ds.w 256*2
  6382.  
  6383. PointBrights:
  6384.  dc.l 0
  6385. CurrentPointBrights:
  6386.  ds.l 1000
  6387.  
  6388. movespd: dc.w 0
  6389. largespd: dc.l 0
  6390. disttobot: dc.w 0
  6391.  
  6392. pastscale:
  6393.  
  6394.  tst.b drawit(pc)
  6395.  beq dontdrawfloor
  6396.  
  6397.  move.l a0,-(a7)
  6398.  
  6399.  move.l #leftsidetab,a4
  6400.  move.w top(pc),d1
  6401.  
  6402.   
  6403.  tst.w above
  6404.  beq.s clipfloor
  6405.  
  6406.  move.w MIDDLEY,d7
  6407.  subq #1,d7
  6408.  sub.w d1,d7
  6409.  move.w d7,disttobot
  6410.  
  6411.  move.w bottom(pc),d7
  6412.  move.w MIDDLEY,d3
  6413.  move.w d3,d4
  6414.  sub.w topclip,d3
  6415.  sub.w botclip,d4
  6416.  cmp.w d3,d1
  6417.  bge predontdrawfloor
  6418.  cmp.w d4,d7
  6419.  blt predontdrawfloor
  6420.  cmp.w d4,d1
  6421.  bge.s .nocliptoproof
  6422.  move.w d4,d1
  6423. .nocliptoproof
  6424.  cmp.w d3,d7
  6425.  blt doneclip
  6426.  move.w d3,d7
  6427.  bra doneclip
  6428.  
  6429. clipfloor:
  6430.  move.w #BOTTOMY,d7
  6431.  sub.w MIDDLEY,d7
  6432.  subq #1,d7
  6433.  sub.w d1,d7
  6434.  move.w d7,disttobot
  6435.  
  6436.  move.w bottom(pc),d7
  6437.  move.w botclip,d4
  6438.  sub.w MIDDLEY,d4
  6439.  cmp.w d4,d1
  6440.  bge predontdrawfloor
  6441.  move.w topclip,d3
  6442.  sub.w MIDDLEY,d3
  6443.  cmp.w d3,d1
  6444.  bge.s .nocliptopfloor
  6445.  move.w d3,d1
  6446. .nocliptopfloor 
  6447.  cmp.w d3,d7
  6448.  ble predontdrawfloor
  6449.  cmp.w d4,d7
  6450.  blt.s .noclipbotfloor
  6451.  move.w d4,d7
  6452. .noclipbotfloor:
  6453.  
  6454. doneclip:
  6455.  
  6456.  lea (a4,d1*2),a4
  6457. ; move.l #dists,a2
  6458.  move.w distaddr,d0
  6459.  muls #64,d0
  6460.  move.l d0,a2
  6461. ; muls #25,d0
  6462. ; adda.w d0,a2
  6463. ; lea (a2,d1*2),a2
  6464.  sub.w d1,d7
  6465.  ble predontdrawfloor 
  6466.  move.w d1,d0
  6467.  bne.s .notzero
  6468.  moveq #1,d0
  6469. .notzero
  6470.  muls linedir,d1
  6471.  add.l d1,a6
  6472.  move.l #floorscalecols,a1
  6473.  move.l LineToUse,a5
  6474.  
  6475.  tst.b gourfloor
  6476.  bne dogourfloor
  6477.  
  6478.  tst.b anyclipping
  6479.  beq dofloornoclip
  6480.  
  6481. dofloor:
  6482. ; move.w (a2)+,d0
  6483.  move.w leftclip(pc),d3
  6484.  move.w rightclip(pc),d4
  6485.  move.w rightsidetab-leftsidetab(a4),d2
  6486.  
  6487.  addq #1,d2
  6488.  cmp.w d3,d2
  6489.  ble.s nodrawline
  6490.  cmp.w d4,d2
  6491.  ble.s noclipright
  6492.  move.w d4,d2
  6493. noclipright:
  6494.  move.w (a4),d1
  6495.  cmp.w d4,d1
  6496.  bge.s nodrawline
  6497.  cmp.w d3,d1
  6498.  bge.s noclipleft
  6499.  move.w d3,d1
  6500. noclipleft:
  6501.  cmp.w d1,d2
  6502.  ble.s nodrawline
  6503.  
  6504.  move.w d1,leftedge
  6505.  move.w d2,rightedge
  6506.  
  6507. ; moveq #0,d1
  6508. ; moveq #0,d3
  6509. ; move.w leftbrighttab-leftsidetab(a4),d1
  6510. ; bge.s .okbl
  6511. ; moveq #0,d1
  6512. ;.okbl:
  6513.  
  6514. ; move.w rightbrighttab-leftsidetab(a4),d3
  6515. ; bge.s .okbr
  6516. ; moveq #0,d3
  6517. ;.okbr:
  6518.  
  6519. ; sub.w d1,d3
  6520. ; asl.w #8,d1
  6521. ; move.l d1,leftbright
  6522. ; swap d3
  6523. ; asr.l #5,d3
  6524. ; divs d5,d3
  6525. ; move.w d3,d5
  6526. ; muls.w d6,d5
  6527. ; asr.l #3,d5
  6528. ; clr.b d5
  6529. ; add.w d5,leftbright+2
  6530.  
  6531. ; ext.l d3
  6532. ; asl.l #5,d3
  6533. ; swap d3
  6534. ; asl.w #8,d3
  6535. ; move.l d3,brightspd
  6536.  
  6537.  move.l a6,a3
  6538.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  6539.  move.l a2,d7
  6540.  divs d0,d7
  6541.  move.w d7,d0
  6542.  jsr (a5)
  6543.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  6544. nodrawline
  6545.  sub.w #1,disttobot
  6546.  adda.w linedir(pc),a6
  6547.  addq #2,a4
  6548.  addq #1,d0
  6549.  subq #1,d7
  6550.  bgt dofloor
  6551.  
  6552. predontdrawfloor
  6553.  move.l (a7)+,a0
  6554.  
  6555. dontdrawfloor:
  6556.  
  6557.  rts
  6558.  
  6559. anyclipping: dc.w 0
  6560.  
  6561. dofloornoclip:
  6562. ; move.w (a2)+,d0
  6563.  move.w rightsidetab-leftsidetab(a4),d2
  6564.  addq #1,d2
  6565.  move.w (a4)+,d1
  6566.  move.w d1,leftedge
  6567.  move.w d2,rightedge
  6568.  
  6569. ; sub.w d1,d2
  6570.  
  6571. ; moveq #0,d1
  6572. ; moveq #0,d3
  6573. ; move.w leftbrighttab-leftsidetab(a4),d1
  6574. ; bge.s .okbl
  6575. ; moveq #0,d1
  6576. ;.okbl:
  6577.  
  6578. ; move.w rightbrighttab-leftsidetab(a4),d3
  6579. ; bge.s .okbr
  6580. ; moveq #0,d3
  6581. ;.okbr:
  6582.  
  6583. ; sub.w d1,d3
  6584. ; asl.w #8,d1
  6585. ; move.l d1,leftbright
  6586. ; swap d3
  6587. ; asr.l #5,d3
  6588. ; divs d2,d3
  6589. ; ext.l d3
  6590. ; asl.l #5,d3
  6591. ; swap d3
  6592. ; asl.w #8,d3
  6593. ; move.l d3,brightspd
  6594.  
  6595.  move.l a6,a3
  6596.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  6597.  move.l a2,d7
  6598.  divs d0,d7
  6599.  move.w d7,d0
  6600.  jsr (a5)
  6601.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  6602.  sub.w #1,disttobot
  6603.  adda.w linedir(pc),a6
  6604.  addq #1,d0
  6605.  subq #1,d7
  6606.  bgt dofloornoclip
  6607.  
  6608.  bra predontdrawfloor
  6609.  
  6610. dogourfloor:
  6611.  tst.b anyclipping
  6612.  beq dofloornoclipGOUR
  6613.  
  6614. dofloorGOUR:
  6615. ; move.w (a2)+,d0
  6616.  move.w leftclip(pc),d3
  6617.  move.w rightclip(pc),d4
  6618.  move.w rightsidetab-leftsidetab(a4),d2
  6619.  
  6620.  move.w d2,d5
  6621.  sub.w (a4),d5
  6622.  addq #1,d5
  6623.  moveq #0,d6
  6624.  
  6625.  addq #1,d2
  6626.  cmp.w d3,d2
  6627.  ble nodrawlineGOUR
  6628.  cmp.w d4,d2
  6629.  ble.s nocliprightGOUR
  6630.  move.w d4,d2
  6631. nocliprightGOUR:
  6632.  move.w (a4),d1
  6633.  cmp.w d4,d1
  6634.  bge nodrawlineGOUR
  6635.  cmp.w d3,d1
  6636.  bge.s noclipleftGOUR
  6637.  move.w d3,d6
  6638.  subq #1,d6
  6639.  sub.w d1,d6
  6640.  move.w d3,d1
  6641. noclipleftGOUR:
  6642.  cmp.w d1,d2
  6643.  ble nodrawlineGOUR
  6644.  
  6645.  move.w d1,leftedge
  6646.  move.w d2,rightedge
  6647.  
  6648.  move.l a2,d2
  6649.  divs d0,d2
  6650.  move.w d2,dst
  6651.  asr.w #7,d2
  6652. ; addq #5,d2
  6653. ; add.w lighttype,d2
  6654.  
  6655.  moveq #0,d1
  6656.  moveq #0,d3
  6657.  move.w leftbrighttab-leftsidetab(a4),d1
  6658.  add.w d2,d1
  6659.  bge.s .okbl
  6660.  moveq #0,d1
  6661. .okbl:
  6662. ; asr.w #1,d1
  6663.  cmp.w #31,d1
  6664.  ble.s .okdl
  6665.  move.w #31,d1
  6666. .okdl:
  6667.  
  6668.  move.w rightbrighttab-leftsidetab(a4),d3
  6669.  add.w d2,d3
  6670.  bge.s .okbr
  6671.  moveq #0,d3
  6672. .okbr:
  6673. ; asr.w #1,d3
  6674.  cmp.w #31,d3
  6675.  ble.s .okdr
  6676.  move.w #31,d3
  6677. .okdr:
  6678.  
  6679.  sub.w d1,d3
  6680.  asl.w #8,d1
  6681.  move.w d1,leftbright
  6682.  swap d3
  6683.  tst.l d3
  6684.  bgt.s .OKITSPOSALREADY 
  6685.  neg.l d3
  6686.  asr.l #6,d3
  6687.  divs d5,d3
  6688.  neg.w d3
  6689.  bra.s .OKNOWITSNEG
  6690.  
  6691. .OKITSPOSALREADY
  6692.  asr.l #6,d3
  6693.  divs d5,d3
  6694. .OKNOWITSNEG
  6695.  muls d3,d6
  6696.  add.w #256*4,d6
  6697.  asr.w #2,d6
  6698.  clr.b d6
  6699.  add.w leftbright,d6
  6700.  bge.s .oklbnn
  6701.  moveq #0,d6
  6702. .oklbnn:
  6703.  move.w d6,leftbright
  6704.  
  6705.  ext.l d3
  6706.  asr.l #2,d3
  6707. ; swap d3
  6708. ; asl.w #8,d3
  6709.  move.w d3,brightspd
  6710.  
  6711.  move.l a6,a3
  6712.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  6713.  move.w dst,d0
  6714.  lea floorscalecols,a1
  6715.  move.l floortile,a0
  6716.  adda.w whichtile,a0
  6717.  jsr pastfloorbright
  6718.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  6719. nodrawlineGOUR
  6720.  
  6721.  sub.w #1,disttobot
  6722.  
  6723.  adda.w linedir(pc),a6
  6724.  addq #2,a4
  6725.  addq #1,d0
  6726.  subq #1,d7
  6727.  bgt dofloorGOUR
  6728.  
  6729. predontdrawfloorGOUR
  6730.  move.l (a7)+,a0
  6731.  
  6732. dontdrawfloorGOUR:
  6733.  
  6734.  rts
  6735.  
  6736. dofloornoclipGOUR:
  6737. ; move.w (a2)+,d0
  6738.  move.w rightsidetab-leftsidetab(a4),d2
  6739.  addq #1,d2
  6740.  move.w (a4),d1
  6741.  move.w d1,leftedge
  6742.  move.w d2,rightedge
  6743.  
  6744.  sub.w d1,d2
  6745.  
  6746.  move.l a2,d6
  6747.  divs d0,d6
  6748.  move.w d6,d5
  6749.  asr.w #7,d5
  6750. ; addq #5,d5
  6751. ; add.w lighttype,d5
  6752.  
  6753.  moveq #0,d1
  6754.  moveq #0,d3
  6755.  move.w leftbrighttab-leftsidetab(a4),d1
  6756.  add.w d5,d1
  6757.  bge.s .okbl
  6758.  moveq #0,d1
  6759. .okbl:
  6760. ; asr.w #1,d1
  6761.  cmp.w #31,d1
  6762.  ble.s .okdl
  6763.  move.w #31,d1
  6764. .okdl:
  6765.  
  6766.  move.w rightbrighttab-leftsidetab(a4),d3
  6767.  add.w d5,d3
  6768.  bge.s .okbr
  6769.  moveq #0,d3
  6770. .okbr:
  6771. ; asr.w #1,d3
  6772.  cmp.w #31,d3
  6773.  ble.s .okdr
  6774.  move.w #31,d3
  6775. .okdr:
  6776.  
  6777. ; sub.w d1,d3
  6778. ; asl.w #8,d1
  6779. ; move.l d1,leftbright
  6780. ; swap d3
  6781. ; asr.l #5,d3
  6782. ; divs d2,d3
  6783. ; ext.l d3
  6784. ; asl.l #5,d3
  6785. ; swap d3
  6786. ; asl.w #8,d3
  6787. ; move.l d3,brightspd
  6788.  
  6789.  sub.w d1,d3
  6790.  asl.w #8,d1
  6791.  move.w d1,leftbright
  6792.  swap d3
  6793.  ext.l d2
  6794.  divs.l d2,d3
  6795.  asr.l #8,d3
  6796.  move.w d3,brightspd
  6797.  
  6798.  move.l a6,a3
  6799.  movem.l d0/d7/a2/a4/a5/a6,-(a7)
  6800.  move.w d6,d0
  6801.  move.w d0,dst
  6802.  lea floorscalecols,a1
  6803.  move.l floortile,a0
  6804.  adda.w whichtile,a0
  6805.  jsr pastfloorbright
  6806.  movem.l (a7)+,d0/d7/a2/a4/a5/a6
  6807.  sub.w #1,disttobot
  6808.  adda.w linedir(pc),a6
  6809.  addq #2,a4
  6810.  addq #1,d0
  6811.  subq #1,d7
  6812.  bgt dofloornoclipGOUR
  6813.  
  6814.  bra predontdrawfloorGOUR
  6815.  
  6816.  
  6817.  
  6818. dists:
  6819. ; incbin "floordists"
  6820. drawit: dc.w 0
  6821.  
  6822. LineToUse: dc.l 0
  6823.  
  6824. ***************************
  6825. * Right then, time for the floor
  6826. * routine...
  6827. * For test purposes, give it
  6828. * a3 = point to screen
  6829. * d0= z distance away
  6830. * and sinval+cosval must be set up.
  6831. ***************************
  6832.  
  6833. BLACKFLOOR:
  6834.  moveq #0,d0
  6835.  bra.s DOBLACK
  6836.  
  6837. SimpleFloorLine:
  6838.  
  6839.  CACHE_OFF d2
  6840.  
  6841.  move.l #doacrossline,a1
  6842.  move.w leftedge(pc),d1
  6843.  move.w rightedge(pc),d3
  6844.  sub.w d1,d3
  6845.  lea (a1,d1.w*4),a1
  6846.  move.w (a1,d3.w*4),d4
  6847.  move.w #$4e75,(a1,d3.w*4)
  6848.  
  6849.  tst.b CLRNOFLOOR
  6850.  bne.s BLACKFLOOR
  6851.  
  6852.  move.l #PLAINSCALE,a2
  6853.  
  6854.  move.w d0,d2
  6855.  move.w lighttype,d1
  6856.  asr.w #8,d2
  6857.  add.w #5,d1
  6858.  add.w d2,d1
  6859.  bge.s .fixedbright
  6860.  moveq #0,d1
  6861. .fixedbright:
  6862.  cmp.w #28,d1
  6863.  ble.s .smallbright
  6864.  move.w #28,d1
  6865. .smallbright:
  6866.  lea (a2,d1.w*2),a2
  6867.  
  6868.  move.w whichtile,d0
  6869.  move.w d0,d1
  6870.  and.w #$3,d1
  6871.  and.w #$300,d0
  6872.  lsl.b #6,d1
  6873.  move.b d1,d0
  6874.  move.w d0,tstwhich
  6875.  move.w (a2,d0.w),d0
  6876.  
  6877. DOBLACK:
  6878.  jsr (a1)
  6879.  move.w d4,(a1,d3.w*4)
  6880.  
  6881.  CACHE_ON d2
  6882.  
  6883.  rts
  6884.  
  6885. tstwhich: dc.w 0
  6886. whichtile: dc.w 0
  6887.   
  6888. PLAINSCALE: incbin "ab3:includes/plainscale"
  6889.   
  6890. storeit: dc.l 0
  6891.  
  6892. doacrossline:
  6893. val SET 0
  6894.  REPT 32
  6895.  move.w d0,val(a3)
  6896. val SET val+4
  6897.  ENDR
  6898. val SET val+4
  6899.  REPT 32
  6900.  move.w d0,val(a3)
  6901. val SET val+4
  6902.  ENDR
  6903. val SET val+4
  6904.  REPT 32
  6905.  move.w d0,val(a3)
  6906. val SET val+4
  6907.  ENDR
  6908.  rts
  6909.  
  6910.  
  6911. leftedge: dc.w 0
  6912. rightedge: dc.w 0
  6913.  
  6914. rndpt: dc.l rndtab
  6915.  
  6916.  
  6917. dst: dc.w 0
  6918.  
  6919. FloorLine:
  6920.  
  6921.  move.l floortile,a0
  6922.  adda.w whichtile,a0
  6923.  move.w lighttype,d1
  6924.  move.w d0,dst
  6925.  move.w d0,d2
  6926. *********************
  6927. * Old version
  6928.  asr.w #8,d2
  6929.  add.w #5,d1
  6930. *********************
  6931. ; asr.w #3,d2
  6932. ; sub.w #4,d2
  6933. ; cmp.w #6,d2
  6934. ; blt.s flbrbr
  6935. ; move.w #6,d2
  6936. ;flbrbr:
  6937. *********************
  6938.  add.w d2,d1
  6939.  bge.s .fixedbright
  6940.  moveq #0,d1
  6941. .fixedbright:
  6942.  cmp.w #28,d1
  6943.  ble.s .smallbright
  6944.  move.w #28,d1
  6945. .smallbright:
  6946.  lea floorscalecols,a1
  6947.  add.l floorbright(pc,d1.w*4),a1
  6948.  bra pastfloorbright
  6949.  
  6950. ConstCol: dc.w 0
  6951.  
  6952. BumpLine:
  6953.  
  6954.  tst.b smoothbumps
  6955.  beq.s Chunky
  6956.  
  6957.  move.l #SmoothTile,a0
  6958.  lea Smoothscalecols,a1
  6959.  bra pastast
  6960.  
  6961. Chunky:
  6962.  
  6963.  moveq #0,d2
  6964.  move.l #Bumptile,a0
  6965.  move.w whichtile,d2
  6966.  adda.w d2,a0
  6967.  ror.l #2,d2
  6968.  lsr.w #6,d2
  6969.  rol.l #2,d2
  6970.  and.w #15,d2
  6971.  move.l #ConstCols,a1
  6972.  move.w (a1,d2.w*2),ConstCol
  6973.  lea Bumpscalecols,a1
  6974.  
  6975. pastast:
  6976.  move.w lighttype,d1
  6977.  
  6978.  move.w d0,dst
  6979.  
  6980.  move.w d0,d2
  6981. *********************
  6982. * Old version
  6983.  asr.w #8,d2
  6984.  add.w #5,d1
  6985. *********************
  6986. ; asr.w #3,d2
  6987. ; sub.w #4,d2
  6988. ; cmp.w #6,d2
  6989. ; blt.s flbrbr
  6990. ; move.w #6,d2
  6991. ;flbrbr:
  6992. *********************
  6993.  add.w d2,d1
  6994.  bge.s .fixedbright
  6995.  moveq #0,d1
  6996. .fixedbright:
  6997.  cmp.w #31,d1
  6998.  ble.s .smallbright
  6999.  move.w #31,d1
  7000. .smallbright:
  7001.  add.l floorbright(pc,d1.w*4),a1
  7002.  bra pastfloorbright
  7003.  
  7004.  
  7005. floorbright:
  7006.  dc.l 512*0
  7007.  dc.l 512*1
  7008.  dc.l 512*2
  7009.  dc.l 512*3
  7010.  dc.l 512*4
  7011.  
  7012.  dc.l 512*5
  7013.  dc.l 512*6
  7014.  dc.l 512*7
  7015.  dc.l 512*8
  7016.  dc.l 512*9
  7017.  
  7018.  dc.l 512*10
  7019.  dc.l 512*11
  7020.  dc.l 512*12
  7021.  dc.l 512*13
  7022.  dc.l 512*14
  7023.  
  7024.  dc.l 512*15
  7025.  dc.l 512*16
  7026.  dc.l 512*17
  7027.  dc.l 512*18
  7028.  dc.l 512*19
  7029.  
  7030.  dc.l 512*20
  7031.  dc.l 512*21
  7032.  dc.l 512*22
  7033.  dc.l 512*23
  7034.  dc.l 512*24
  7035.  
  7036.  dc.l 512*25
  7037.  dc.l 512*26
  7038.  dc.l 512*27
  7039.  dc.l 512*28
  7040.  dc.l 512*29
  7041.  
  7042.  dc.l 512*30
  7043.  dc.l 512*31
  7044.  
  7045. widthleft: dc.w 0
  7046. scaleval: dc.w 0
  7047. sxoff: dc.l 0
  7048. szoff: dc.l 0
  7049. xoff34: dc.w 0
  7050. zoff34: dc.w 0
  7051. scosval: dc.w 0
  7052. ssinval: dc.w 0
  7053.  
  7054.  
  7055. floorsetbright:
  7056.  move.l #walltiles,a0
  7057.  
  7058. pastfloorbright
  7059.  move.w d0,d1
  7060.  muls cosval,d1    ; change in x across whole width
  7061.  move.w d0,d2
  7062.  muls sinval,d2    ; change in z across whole width
  7063.  neg.l d2
  7064. scaleprog:
  7065.  move.w scaleval(pc),d3
  7066.  beq.s .samescale
  7067.  bgt.s .scaledown
  7068.  neg.w d3
  7069.  asr.l d3,d1
  7070.  asr.l d3,d2
  7071.  bra.s .samescale
  7072. .scaledown:
  7073.  asl.l d3,d1
  7074.  asl.l d3,d2
  7075. .samescale
  7076.  
  7077.  move.l d1,d3 ;    z cos
  7078.  move.l d3,d6
  7079.  move.l d3,d5
  7080.  asr.l #1,d6
  7081.  add.l d6,d3
  7082.  asr.l #1,d3
  7083.  
  7084.  move.l d2,d4    ; z sin
  7085.  move.l d4,d6
  7086.  asr.l #1,d6
  7087.  add.l d4,d6
  7088.  add.l d3,d4
  7089.  neg.l d4    ; start x
  7090.  
  7091.  asr.l #1,d6    ; zsin/2
  7092.  sub.l d6,d5    ; start z
  7093.  
  7094.  add.l sxoff,d4
  7095.  add.l szoff,d5
  7096.  
  7097.  moveq #0,d6
  7098.  move.w leftedge(pc),d6
  7099.  beq.s nomultleft
  7100.  
  7101.  add.l d6,d6
  7102.  divs #3,d6
  7103.  ext.l d6
  7104.  
  7105.  move.l d1,a4
  7106.  move.l d2,a5
  7107.  
  7108.  muls.l d6,d3:d1
  7109.  asr.l #7,d1
  7110.  add.l d1,d4
  7111.  
  7112.  muls.l d6,d3:d2
  7113.  asr.l #7,d2
  7114.  add.l d2,d5
  7115.  move.l a4,d1
  7116.  move.l a5,d2
  7117.  
  7118.  move.w leftedge(pc),d6
  7119.  
  7120. nomultleft:
  7121.  
  7122.  
  7123.  move.w d4,startsmoothx
  7124.  move.w d5,startsmoothz
  7125.  
  7126.  asr.l #8,d4
  7127.  asl.l #8,d5
  7128. ; add.w szoff,d5
  7129. ; add.w sxoff,d4
  7130. ; and.w #63,d4
  7131. ; and.w #63*256,d5
  7132.  move.w d4,d5
  7133.  
  7134.  asr.l #6,d1
  7135.  asr.l #6,d2
  7136.  divs.l #3,d1
  7137.  divs.l #3,d2
  7138.  move.w d1,a4
  7139.  move.w d2,a5
  7140.  asl.l #8,d2
  7141. ; and.w #%0011111100000000,d2
  7142.  asr.l #8,d1
  7143.  move.w d1,d2
  7144.  move.l #$3fff3fff,d1
  7145.  and.l d1,d5
  7146. ; swap d5
  7147. ; move.w startsmoothz,d5
  7148. ; swap d5
  7149. ; swap d2
  7150. ; move.w a5,d2
  7151. ; swap d2
  7152.  
  7153. ***********************************
  7154.  
  7155.  move.w d6,a2
  7156. ; move.l d2,d6
  7157. ; add.w #256,d6
  7158.  
  7159.  moveq #0,d0
  7160.  
  7161. ; tst.w a2
  7162. ; beq startatleftedge
  7163.  
  7164. ; move.w widthleft(pc),d4
  7165.  
  7166.  move.w rightedge(pc),d3
  7167.  
  7168.  lea (a3,a2.w*2),a3
  7169.  move.w d3,d7
  7170.  sub.w a2,d7
  7171.  bra intofirststrip
  7172.  
  7173.  cmp.w #31,a2
  7174.  bgt.s notinfirststrip
  7175.  lea (a3,a2.w*4),a3
  7176.  cmp.w #32,d3
  7177.  ble.s allinfirststrip
  7178.  move.w #32,d7
  7179.  sub.w d7,d3
  7180.  sub.w a2,d7
  7181.  bra intofirststrip
  7182.  
  7183. allinfirststrip
  7184.  sub.w a2,d3
  7185.  move.w d3,d7
  7186.  move.w #0,d4
  7187.  bra allintofirst
  7188.  
  7189. notinfirststrip:
  7190.  sub.w #32,a2
  7191.  sub.w #32,d3
  7192.  adda.w #33*4,a3
  7193.  cmp.w #31,a2
  7194.  bgt.s notstartinsec
  7195.  lea (a3,a2.w*4),a3
  7196.  cmp.w #32,d3
  7197.  ble.s allinsecstrip
  7198.  move.w #32,d7
  7199.  sub.w d7,d3
  7200.  sub.w a2,d7
  7201.  move.w d3,d4
  7202.  bra allintofirst
  7203.  
  7204. allinsecstrip
  7205.  sub.w a2,d3
  7206.  move.w d3,d7
  7207.  move.w #0,d4
  7208.  bra allintofirst
  7209.  rts
  7210.  
  7211. prot8: dc.w 0
  7212.  
  7213. notstartinsec:
  7214.  sub.w #32,a2
  7215.  sub.w #32,d3
  7216.  adda.w #33*4,a3
  7217.  lea (a3,a2.w*4),a3
  7218.  cmp.w #32,d3
  7219.  ble.s allinthirdstrip
  7220.  move.w #32,d7
  7221.  sub.w d7,d3
  7222.  sub.w a2,d7
  7223.  move.w d3,d4
  7224.  bra allintofirst
  7225.  rts
  7226.  
  7227. allinthirdstrip
  7228.  sub.w a2,d3
  7229.  move.w d3,d7
  7230.  move.w #0,d4
  7231.  bra allintofirst
  7232.  rts
  7233.  
  7234. startatleftedge:
  7235.  
  7236. ; move.w rightedge(pc),d3
  7237. ; sub.w a2,d3
  7238. ; 
  7239. ; move.w d3,d7
  7240. ; cmp.w #32,d7
  7241. ; ble.s .notoowide
  7242. ; move.w #32,d7
  7243. ;.notoowide:
  7244. ; sub.w d7,d3
  7245. intofirststrip:
  7246. ;
  7247. ; move.w d3,d4
  7248. allintofirst:
  7249.  
  7250.  move.w startsmoothx,d3
  7251.  
  7252. tstwat:
  7253.  
  7254.  tst.b gourfloor
  7255.  bne gouraudfloor
  7256.  
  7257.  tst.b usewater
  7258.  bne texturedwater
  7259.  
  7260.  
  7261. ******************************
  7262. * BumpMap the floor/ceiling! *
  7263.  tst.b usebumps
  7264.  bne.s BumpMap
  7265. ******************************
  7266.  
  7267. ordinary:
  7268.  moveq #0,d0
  7269.  
  7270.  dbra d7,acrossscrn
  7271.  rts
  7272.  
  7273. usebumps: dc.w $0
  7274. smoothbumps: dc.w $0
  7275. gourfloor: dc.w 0
  7276.  
  7277.  include "ab3:source_4000/bumpmap.s"
  7278.  
  7279.  CNOP 0,4
  7280. backbefore:
  7281.  and.w d1,d5
  7282.  move.b (a0,d5.w*4),d0
  7283.  add.w a4,d3
  7284.  move.w (a1,d0.w*2),(a3)
  7285.  addq #4,a3
  7286.  addx.l d6,d5
  7287.  dbcs d7,acrossscrn
  7288.  dbcc d7,backbefore
  7289.  bra.s past1
  7290.  
  7291. acrossscrn:
  7292.  and.w d1,d5
  7293.  move.b (a0,d5.w*4),d0
  7294.  add.w a4,d3
  7295.  move.w (a1,d0.w*2),(a3)
  7296.  addq #4,a3
  7297.  addx.l d2,d5
  7298.  dbcs d7,acrossscrn
  7299.  dbcc d7,backbefore
  7300. past1:
  7301.  bcc.s gotoacross
  7302.  
  7303.  move.w d4,d7
  7304.  bne.s .notdoneyet
  7305.  rts
  7306. .notdoneyet:
  7307.  
  7308.  cmp.w #32,d7
  7309.  ble.s .notoowide
  7310.  move.w #32,d7
  7311. .notoowide
  7312.  sub.w d7,d4  
  7313.  addq #4,a3
  7314.  
  7315.  dbra d7,backbefore
  7316.  rts
  7317.  
  7318.  
  7319. gotoacross:
  7320.  
  7321.  move.w d4,d7
  7322.  bne.s .notdoneyet
  7323.  rts
  7324. .notdoneyet:
  7325.  
  7326.  cmp.w #32,d7
  7327.  ble.s .notoowide
  7328.  move.w #32,d7
  7329. .notoowide
  7330.  sub.w d7,d4  
  7331.  addq #4,a3
  7332.  
  7333.  dbra d7,acrossscrn
  7334.  rts
  7335.  
  7336. leftbright: dc.l 0
  7337. brightspd: dc.l 0
  7338.  
  7339. gouraudfloor:
  7340.  
  7341.  move.w leftbright,d0
  7342.  move.l d1,d4
  7343.  move.w brightspd,d1
  7344.  
  7345.  move.w d7,d3
  7346.  asr.w #1,d7
  7347.  btst #0,d3
  7348.  beq.s .nosingle1
  7349.  move.w d5,d3
  7350.  move.l d5,d6
  7351.  lsr.w #8,d3
  7352.  swap d6
  7353.  move.b d3,d6
  7354.  move.w d0,d3
  7355.  move.b (a0,d6.w*4),d3
  7356.  add.w d1,d0
  7357.  add.l d2,d5
  7358.  and.l d4,d5
  7359.  move.w (a1,d3.w*2),(a3)+
  7360. .nosingle1
  7361.  
  7362.  move.w d7,d3
  7363.  asr.w #1,d7
  7364.  btst #0,d3
  7365.  beq.s .nosingle2
  7366.  move.w d5,d3
  7367.  move.l d5,d6
  7368.  lsr.w #8,d3
  7369.  swap d6
  7370.  move.b d3,d6
  7371.  move.w d0,d3
  7372.  move.b (a0,d6.w*4),d3
  7373.  add.w d1,d0
  7374.  add.l d2,d5
  7375.  and.l d4,d5
  7376.  move.l d5,d6
  7377.  swap d6
  7378.  move.w (a1,d3.w*2),(a3)+
  7379.  move.w d5,d3
  7380.  lsr.w #8,d3
  7381.  move.b d3,d6
  7382.  move.w d0,d3
  7383.  move.b (a0,d6.w*4),d3
  7384.  add.w d1,d0
  7385.  add.l d2,d5
  7386.  and.l d4,d5
  7387.  move.w (a1,d3.w*2),(a3)+
  7388.  
  7389. .nosingle2
  7390.  
  7391.  move.l d5,d6
  7392.  swap d6
  7393.  
  7394.  dbra d7,acrossscrngour
  7395.  rts
  7396.  
  7397.  CNOP 0,4
  7398.  
  7399. acrossscrngour:
  7400.  move.w d5,d3
  7401.  lsr.w #8,d3
  7402.  move.b d3,d6
  7403.  move.w d0,d3
  7404.  move.b (a0,d6.w*4),d3
  7405.  add.w d1,d0
  7406.  add.l d2,d5
  7407.  and.l d4,d5
  7408.  move.l d5,d6
  7409.  swap d6
  7410.  move.w (a1,d3.w*2),(a3)+
  7411.  move.w d5,d3
  7412.  lsr.w #8,d3
  7413.  move.b d3,d6
  7414.  move.w d0,d3
  7415.  move.b (a0,d6.w*4),d3
  7416.  add.w d1,d0
  7417.  add.l d2,d5
  7418.  and.l d4,d5
  7419.  move.l d5,d6
  7420.  swap d6
  7421.  move.w (a1,d3.w*2),(a3)+
  7422.  move.w d5,d3
  7423.  lsr.w #8,d3
  7424.  move.b d3,d6
  7425.  move.w d0,d3
  7426.  move.b (a0,d6.w*4),d3
  7427.  add.w d1,d0
  7428.  add.l d2,d5
  7429.  and.l d4,d5
  7430.  move.l d5,d6
  7431.  swap d6
  7432.  move.w (a1,d3.w*2),(a3)+
  7433.  move.w d5,d3
  7434.  lsr.w #8,d3
  7435.  move.b d3,d6
  7436.  move.w d0,d3
  7437.  move.b (a0,d6.w*4),d3
  7438.  add.w d1,d0
  7439.  add.l d2,d5
  7440.  and.l d4,d5
  7441.  move.l d5,d6
  7442.  swap d6
  7443.  move.w (a1,d3.w*2),(a3)+
  7444.  dbra d7,acrossscrngour
  7445.  
  7446.  
  7447.  rts
  7448.  
  7449.  move.w d4,d7
  7450.  bne.s .notdoneyet
  7451.  move.l d0,leftbright
  7452.  
  7453.  rts
  7454. .notdoneyet:
  7455.  
  7456.  cmp.w #32,d7
  7457.  ble.s .notoowide
  7458.  move.w #32,d7
  7459. .notoowide
  7460.  sub.w d7,d4  
  7461.  addq #4,a3
  7462.  
  7463. ; dbra d7,backbeforegour
  7464.  rts
  7465.  
  7466.  
  7467. gotoacrossgour:
  7468.  
  7469.  move.w d4,d7
  7470.  bne.s .notdoneyet
  7471.  rts
  7472. .notdoneyet:
  7473.  
  7474.  cmp.w #32,d7
  7475.  ble.s .notoowide
  7476.  move.w #32,d7
  7477. .notoowide
  7478.  sub.w d7,d4  
  7479.  addq #4,a3
  7480.  
  7481.  dbra d7,acrossscrngour
  7482.  rts
  7483.  
  7484.  
  7485. waterpt: dc.l waterlist
  7486.  
  7487. waterlist:
  7488.  dc.l waterfile
  7489.  dc.l waterfile+2
  7490.  dc.l waterfile+256
  7491.  dc.l waterfile+256+2
  7492.  dc.l waterfile+512
  7493.  dc.l waterfile+512+2
  7494.  dc.l waterfile+768
  7495.  dc.l waterfile+768+2
  7496. ; dc.l waterfile+768
  7497. ; dc.l waterfile+512+2
  7498. ; dc.l waterfile+512
  7499. ; dc.l waterfile+256+2
  7500. ; dc.l waterfile+256
  7501. ; dc.l waterfile+2
  7502. endwaterlist:
  7503.  
  7504. watertouse: dc.l waterfile
  7505.  
  7506. wtan: dc.w 0
  7507. wateroff: dc.l 0
  7508.  
  7509. texturedwater:
  7510.  
  7511.  move.l d1,d4
  7512.  
  7513.  add.l wateroff,d5
  7514.  
  7515.  move.l #brightentab,a1
  7516.  move.w dst,d0
  7517.  clr.b d0
  7518.  
  7519.  add.w d0,d0
  7520.  cmp.w #12*512,d0
  7521.  blt.s .notoowater
  7522.  move.w #12*512,d0
  7523.  
  7524.  
  7525. .notoowater:
  7526.   
  7527.  adda.w d0,a1
  7528.  
  7529.  move.w dst,d0
  7530.  asl.w #7,d0
  7531.  add.w wtan,d0
  7532.  and.w #8191,d0
  7533.  move.l #SineTable,a0
  7534.  move.w (a0,d0.w),d0
  7535.  ext.l d0
  7536.  
  7537.  move.w dst,d3
  7538.  add.w #300,d3
  7539.  divs d3,d0
  7540.  asr.w #5,d0
  7541.  addq #4,d0
  7542.  cmp.w disttobot,d0
  7543.  blt.s oknotoffbototot
  7544.  
  7545.  move.w disttobot,d0
  7546.  subq #1,d0
  7547.  
  7548. oknotoffbototot
  7549.  
  7550. ; move.w dst,d3
  7551. ; asr.w #7,d3
  7552. ; add.w d3,d0
  7553.  
  7554.  muls #320*2,d0
  7555.  tst.w above
  7556.  beq.s nonnnnneg
  7557.  neg.l d0
  7558.  
  7559. nonnnnneg:
  7560.  
  7561.  move.l d0,a6
  7562.  
  7563.  move.l watertouse,a0
  7564.  
  7565.  move.w startsmoothx,d3
  7566.  dbra d7,acrossscrnw
  7567.  rts
  7568.  
  7569. backbeforew:
  7570.  and.w d1,d5
  7571.  move.w (a0,d5.w*4),d0
  7572.  move.b (a3,a6.w),d0
  7573.  move.w (a1,d0.w*2),(a3)+
  7574.  add.w a4,d3
  7575.  addx.l d6,d5
  7576.  dbcs d7,acrossscrnw
  7577.  dbcc d7,backbeforew
  7578.  rts
  7579.  
  7580. acrossscrnw:
  7581.  move.w d5,d3
  7582.  move.l d5,d6
  7583.  lsr.w #8,d3
  7584.  swap d6
  7585.  move.b d3,d6
  7586.  move.w (a0,d6.w*4),d0
  7587.  add.l d2,d5
  7588.  move.b (a3,a6.w),d0
  7589.  and.l d4,d5
  7590.  move.w (a1,d0.w*2),(a3)+
  7591.  dbra d7,acrossscrnw
  7592.  rts
  7593.  
  7594. usewater: dc.w 0
  7595.  dc.w 0
  7596. startsmoothx: dc.w 0
  7597.  dc.w 0
  7598. startsmoothz: dc.w 0
  7599.  
  7600. ********************************
  7601. *
  7602.  include "AB3:source_4000/ObjDrawFULLSCREEN.s"
  7603. *
  7604. ********************************
  7605.  
  7606. numframes:
  7607.  dc.w 0
  7608.  
  7609. alframe: dc.l 0
  7610.  
  7611. alan:
  7612.  dcb.l 8,0
  7613.  dcb.l 8,1
  7614.  dcb.l 8,2
  7615.  dcb.l 8,3
  7616. endalan:
  7617.  
  7618. alanptr: dc.l alan
  7619.  
  7620. Time2: dc.l 0
  7621. dispco:
  7622.  dc.w 0
  7623.  
  7624.  
  7625. key_interrupt:
  7626.         movem.l    d0-d7/a0-a6,-(sp)
  7627.  
  7628. ;        move.w    INTREQR,d0
  7629. ;        btst    #3,d0
  7630. ;        beq    .not_key
  7631.  
  7632.         move.b    $bfdd00,d0
  7633.         btst    #0,d0
  7634.         bne    .key_cont
  7635. ;        move.b    $bfed01,d0
  7636. ;        btst    #0,d0
  7637. ;        bne    .key_cont
  7638.     
  7639. ;        btst    #3,d0
  7640. ;        beq    .key_cont
  7641.  
  7642.         move.b    $bfec01,d0
  7643.         clr.b    $bfec01
  7644.  
  7645.         tst.b    d0
  7646.         beq    .key_cont
  7647.  
  7648. ;        bset    #6,$bfee01
  7649. ;        move.b    #$f0,$bfe401
  7650. ;        move.b    #$00,$bfe501
  7651. ;        bset    #0,$bfee01
  7652.  
  7653.  
  7654.         not.b    d0
  7655.         ror.b    #1,d0
  7656.         lea.l    KeyMap,a0
  7657.         tst.b    d0
  7658.         bmi.b    .key_up
  7659.         and.w    #$7f,d0
  7660. ;        add.w    #1,d0
  7661.         move.b    #$ff,(a0,d0.w)
  7662.         move.b    d0,lastpressed
  7663.  
  7664.         bra.b    .key_cont2
  7665. .key_up:
  7666.         and.w    #$7f,d0
  7667. ;        add.w    #1,d0
  7668.         move.b    #$00,(a0,d0.w)
  7669.  
  7670. .key_cont2
  7671. ;        btst    #0,$bfed01
  7672. ;        beq    .key_cont2
  7673. ;        move.b    #%00000000,$bfee01
  7674. ;        move.b    #%10001000,$bfed01
  7675.  
  7676. ;alt keys should not be independent so overlay ralt on lalt
  7677.  
  7678.         
  7679. .key_cont
  7680.  
  7681. ;        move.w    #$0008,INTREQ
  7682. .not_key:    ;lea.l    $dff000,a5
  7683.  
  7684. ;        lea.l    _keypressed(pc),a0
  7685. ;        move.b    101(a0),d0    ;read LALT
  7686. ;        or.b    102(a0),d0    ;blend it with RALT
  7687. ;        move.b    d0,127(a0)    ;save in combined position
  7688.  
  7689.         movem.l    (sp)+,d0-d7/a0-a6
  7690.  
  7691.         rts
  7692.  
  7693. lastpressed:    dc.b 0
  7694. KInt_CCode    Ds.b    1
  7695. KInt_Askey    Ds.b    1
  7696. KInt_OCode    Ds.w    1
  7697.  
  7698.  
  7699. OldSpace: dc.b 0
  7700. SpaceTapped: dc.b 0
  7701. PLR1_SPCTAP: dc.b 0
  7702. PLR2_SPCTAP: dc.b 0
  7703. PLR1_Ducked: dc.b 0
  7704. PLR2_Ducked: dc.b 0
  7705.  even
  7706.  
  7707.  include "ab3:source_4000/PLR1CONTROL.s"
  7708.  include "ab3:source_4000/PLR2CONTROL.s"
  7709.  include "ab3:source_4000/FALL.s"
  7710.  
  7711. prot7: dc.w 0
  7712.  
  7713. GOTTOSEND: dc.w 0
  7714.  
  7715. OtherInter:
  7716.  move.w #$0010,$dff000+intreq
  7717.  movem.l d0-d7/a0-a6,-(a7)
  7718.  bra justshake
  7719.  
  7720.     cnop 0,4
  7721.  
  7722. Chan0inter:
  7723.  
  7724.     SAVEREGS
  7725.     jsr    .routine
  7726.     GETREGS
  7727.  
  7728. ;    move.w    #1024+'.',$dff030
  7729.     
  7730.     moveq #0,d0
  7731.     rts
  7732.  
  7733. .routine
  7734.  
  7735.     
  7736. ;w move.w #$0010,$dff000+intreq
  7737.  
  7738.  tst.b doanything
  7739.  bne.s dosomething
  7740.  
  7741.  movem.l d0-d7/a0-a6,-(a7)
  7742.  bra JUSTSOUNDS
  7743.  
  7744.  rts
  7745.  
  7746. dosomething:
  7747.  
  7748.  
  7749.  addq.w #1,FramesToDraw
  7750.  movem.l d0-d7/a0-a6,-(a7)
  7751.  
  7752.  move.l #KeyMap,a5
  7753.  move.w STOPOFFSET,d0
  7754.  tst.b 27(a5)
  7755.  beq.s .nolookup
  7756.  sub.w #5,d0
  7757.  cmp.w #-80,d0
  7758.  bgt.s .nolookup
  7759.  move.w #-80,d0
  7760. .nolookup:
  7761.  tst.b 42(a5)
  7762.  beq.s .nolookdown
  7763.  add.w #5,d0
  7764.  cmp.w #80,d0
  7765.  blt.s .nolookdown
  7766.  move.w #80,d0
  7767. .nolookdown:
  7768.  
  7769.  move.w d0,STOPOFFSET
  7770.  neg.w d0
  7771.  add.w #120,d0
  7772.  move.w d0,SMIDDLEY
  7773.  muls #320*2,d0
  7774.  move.l d0,SBIGMIDDLEY
  7775.  
  7776. ; move.w STOPOFFSET,d0
  7777. ; tst.b 27(a5)
  7778. ; beq.s .nolookup
  7779. ; sub.w #5,d0
  7780. ; cmp.w #-80,d0
  7781. ; bgt.s .nolookup
  7782. ; move.w #-80,d0
  7783. ;.nolookup:
  7784. ; tst.b 42(a5)
  7785. ; beq.s .nolookdown
  7786. ; add.w #5,d0
  7787. ; cmp.w #80,d0
  7788. ; blt.s .nolookdown
  7789. ; move.w #80,d0
  7790. ;.nolookdown:
  7791. ;
  7792. ; move.w d0,STOPOFFSET
  7793. ; neg.w d0
  7794. ; add.w #40,d0
  7795. ; move.w d0,SMIDDLEY
  7796. ; muls #320*2,d0
  7797. ; move.l d0,SBIGMIDDLEY
  7798.  
  7799.  
  7800. ; jsr INITREC
  7801. ; jsr RECEIVE
  7802.  
  7803. ; tst.l BUFFER
  7804. ; beq.s justshake
  7805. ; st GOTTOSEND
  7806. ; move.l #OtherInter,$6c
  7807.  
  7808. justshake:
  7809.  
  7810.  cmp.b #'b',Prefsfile+3
  7811.  bne.s .noback
  7812.  jsr mt_music
  7813. .noback:
  7814.  
  7815.  bra dontshowtime
  7816.  
  7817.  tst.b oktodisplay
  7818.  beq dontshowtime
  7819.  clr.b oktodisplay
  7820.  subq.w #1,dispco
  7821.  bgt dontshowtime
  7822.  move.w #10,dispco
  7823.  
  7824.  move.l #TimerScr+10,a0
  7825.  move.l TimeCount,d0
  7826.  bge.s timenotneg
  7827.  move.l #1111*256,d0
  7828. timenotneg:
  7829.  asr.l #8,d0
  7830.  move.l #digits,a1
  7831.  move.w #7,d2
  7832. digitlop
  7833.  divs #10,d0
  7834.  swap d0
  7835.  lea (a1,d0.w*8),a2
  7836.  move.b (a2)+,(a0)
  7837.  move.b (a2)+,24(a0)
  7838.  move.b (a2)+,24*2(a0)
  7839.  move.b (a2)+,24*3(a0)
  7840.  move.b (a2)+,24*4(a0)
  7841.  move.b (a2)+,24*5(a0)
  7842.  move.b (a2)+,24*6(a0)
  7843.  move.b (a2)+,24*7(a0)
  7844.  subq #1,a0
  7845.  swap d0
  7846.  ext.l d0
  7847.  dbra d2,digitlop
  7848.  
  7849.  move.l #TimerScr+10+24*10,a0
  7850.  move.l NumTimes,d0
  7851.  move.l #digits,a1
  7852.  move.w #3,d2
  7853. digitlop2
  7854.  divs #10,d0
  7855.  swap d0
  7856.  lea (a1,d0.w*8),a2
  7857.  move.b (a2)+,(a0)
  7858.  move.b (a2)+,24(a0)
  7859.  move.b (a2)+,24*2(a0)
  7860.  move.b (a2)+,24*3(a0)
  7861.  move.b (a2)+,24*4(a0)
  7862.  move.b (a2)+,24*5(a0)
  7863.  move.b (a2)+,24*6(a0)
  7864.  move.b (a2)+,24*7(a0)
  7865.  subq #1,a0
  7866.  swap d0
  7867.  ext.l d0
  7868.  dbra d2,digitlop2
  7869.  
  7870.  move.l #TimerScr+10+24*20,a0
  7871.  moveq #0,d0
  7872.  move.w FramesToDraw,d0
  7873.  move.l #digits,a1
  7874.  move.w #2,d2
  7875. digitlop3
  7876.  divs #10,d0
  7877.  swap d0
  7878.  lea (a1,d0.w*8),a2
  7879.  move.b (a2)+,(a0)
  7880.  move.b (a2)+,24(a0)
  7881.  move.b (a2)+,24*2(a0)
  7882.  move.b (a2)+,24*3(a0)
  7883.  move.b (a2)+,24*4(a0)
  7884.  move.b (a2)+,24*5(a0)
  7885.  move.b (a2)+,24*6(a0)
  7886.  move.b (a2)+,24*7(a0)
  7887.  subq #1,a0
  7888.  swap d0
  7889.  ext.l d0
  7890.  dbra d2,digitlop3
  7891.  
  7892. dontshowtime:
  7893.  
  7894.  
  7895.  move.l alanptr,a0
  7896.  move.l (a0)+,alframe
  7897.  cmp.l #endalan,a0
  7898.  blt.s nostartalan
  7899.  move.l #alan,a0
  7900. nostartalan:
  7901.  move.l a0,alanptr
  7902.  
  7903.  
  7904.  tst.b READCONTROLS
  7905.  beq.s nocontrols
  7906.  
  7907.  cmp.b #'s',mors
  7908.  beq.s control2
  7909.  
  7910.  tst.b PLR1MOUSE
  7911.  beq.s PLR1_nomouse
  7912.  bsr PLR1_mouse_control
  7913. PLR1_nomouse:
  7914.  tst.b PLR1KEYS
  7915.  beq.s PLR1_nokeys
  7916.  bsr PLR1_keyboard_control
  7917. PLR1_nokeys:
  7918. ; tst.b PLR1PATH
  7919. ; beq.s PLR1_nopath
  7920. ; bsr PLR1_follow_path
  7921. ;PLR1_nopath:
  7922.  tst.b PLR1JOY
  7923.  beq.s PLR1_nojoy
  7924.  bsr PLR1_JoyStick_control
  7925. PLR1_nojoy: 
  7926.  bra.s nocontrols
  7927.  
  7928. control2:
  7929.  tst.b PLR2MOUSE
  7930.  beq.s PLR2_nomouse
  7931.  bsr PLR2_mouse_control
  7932. PLR2_nomouse:
  7933.  tst.b PLR2KEYS
  7934.  beq.s PLR2_nokeys
  7935.  bsr PLR2_keyboard_control
  7936. PLR2_nokeys:
  7937. ; tst.b PLR2PATH
  7938. ; beq.s PLR2_nopath
  7939. ; bsr PLR1_follow_path
  7940. ;PLR2_nopath:
  7941.  tst.b PLR2JOY
  7942.  beq.s PLR2_nojoy
  7943.  bsr PLR2_JoyStick_control
  7944. PLR2_nojoy: 
  7945.  
  7946.  
  7947. nocontrols:
  7948.  
  7949.  move.l #$dff000,a6
  7950.  
  7951.  cmp.b #'4',Prefsfile+1
  7952.  bne.s nomuckabout
  7953.  
  7954.  move.w #$0,d0 
  7955.  tst.b NoiseMade0LEFT
  7956.  beq.s noturnoff0
  7957.  move.w #1,d0
  7958. noturnoff0:
  7959.  tst.b NoiseMade0RIGHT
  7960.  beq.s noturnoff1
  7961.  or.w #2,d0
  7962. noturnoff1:
  7963.  tst.b NoiseMade1RIGHT
  7964.  beq.s noturnoff2
  7965.  or.w #4,d0
  7966. noturnoff2:
  7967.  tst.b NoiseMade1LEFT
  7968.  beq.s noturnoff3
  7969.  or.w #8,d0
  7970. noturnoff3:
  7971.     move.w d0,dmacon(a6)
  7972.  
  7973. nomuckabout:
  7974.  
  7975.  
  7976. ; tst.b PLR2_fire
  7977. ; beq.s firenotpressed2
  7978. ; fire was pressed last time.
  7979. ; btst #7,$bfe001
  7980. ; bne.s firenownotpressed2
  7981. ; fire is still pressed this time.
  7982. ; st PLR2_fire
  7983. ; bra dointer
  7984.  
  7985. firenownotpressed2:
  7986. ; fire has been released.
  7987. ; clr.b PLR2_fire
  7988. ; bra dointer
  7989.  
  7990. firenotpressed2
  7991.  
  7992. ; fire was not pressed last frame...
  7993.  
  7994. ; btst #7,$bfe001
  7995. ; if it has still not been pressed, go back above
  7996. ; bne.s firenownotpressed2
  7997. ; fire was not pressed last time, and was this time, so has
  7998. ; been clicked.
  7999. ; st PLR2_clicked
  8000. ; st PLR2_fire
  8001.  
  8002. dointer
  8003.  
  8004. JUSTSOUNDS:
  8005.  
  8006.  tst.b dosounds
  8007.  beq.s .notthing
  8008.  
  8009.  cmp.b #'4',Prefsfile+1
  8010.     beq fourchannel
  8011.  
  8012.  btst #1,$dff000+intreqr
  8013.     bne.s newsampbitl
  8014.  
  8015. .notthing:
  8016.  
  8017.  movem.l (a7)+,d0-d7/a0-a6
  8018.  
  8019.  moveq #0,d0
  8020.  rts
  8021.  
  8022.  
  8023. dosounds: dc.w 0
  8024.  
  8025. swappedem: dc.w 0
  8026.  
  8027. newsampbitl:
  8028.  
  8029.  move.w #$820f,$dff000+dmacon
  8030.  
  8031.  move.w #$200,$dff000+intreq
  8032.  
  8033. ; tst.b CHANNELDATA
  8034. ; bne nochannel0
  8035.  
  8036.  move.l pos0LEFT,a0
  8037.  move.l pos2LEFT,a1
  8038.  
  8039.  move.l #tab,a2
  8040.  
  8041.  moveq #0,d0
  8042.  moveq #0,d1
  8043.  move.b vol0left,d0
  8044.  move.b vol2left,d1
  8045.  cmp.b d1,d0
  8046.  slt swappedem
  8047.  bge.s fbig0
  8048.  
  8049. ; d1 is bigger so scale d0 and use d1
  8050. ; as audiochannel volume.
  8051.  
  8052.  exg a0,a1
  8053.  asl.w #6,d0
  8054.  divs d1,d0
  8055.  lsl.w #8,d0
  8056.  adda.w d0,a2
  8057.  move.w d1,$dff0a8
  8058.  bra.s donechan0
  8059.  
  8060. fbig0:
  8061.  tst.w d0
  8062.  beq.s donechan0
  8063.  asl.w #6,d1
  8064.  divs d0,d1
  8065.  lsl.w #8,d1
  8066.  adda.w d1,a2
  8067.  move.w d0,$dff0a8
  8068.  
  8069. donechan0:
  8070.  
  8071.  move.l Aupt0,a3
  8072.  move.l a3,$dff0a0
  8073.  move.l Auback0,Aupt0
  8074.  move.l a3,Auback0
  8075.  
  8076.  move.l Auback0,a3
  8077.  
  8078.  moveq #0,d0
  8079.  moveq #0,d1
  8080.  moveq #0,d2
  8081.  moveq #0,d3
  8082.  moveq #0,d4
  8083.  moveq #0,d5
  8084.  move.w #49,d7
  8085. loop:
  8086.  move.l (a0)+,d0
  8087.  move.b (a1)+,d1
  8088.  move.b (a1)+,d2
  8089.  move.b (a1)+,d3
  8090.  move.b (a1)+,d4
  8091.  move.b (a2,d3.w),d5
  8092.  swap d5
  8093.  move.b (a2,d1.w),d5
  8094.  asl.l #8,d5
  8095.  move.b (a2,d2.w),d5
  8096.  swap d5
  8097.  move.b (a2,d4.w),d5
  8098.  add.l d5,d0
  8099.  move.l d0,(a3)+
  8100.  dbra d7,loop
  8101.  
  8102.  tst.b swappedem
  8103.  beq.s .ok23
  8104.  exg a0,a1
  8105. .ok23:
  8106.  
  8107.  cmp.l Samp0endLEFT,a0
  8108.  blt.s .notoffendsamp1
  8109.  move.l #empty,a0
  8110.  move.l #emptyend,Samp0endLEFT
  8111.  move.b #0,vol0left
  8112.  st LEFTCHANDATA+1
  8113.  move.w #0,LEFTCHANDATA+2
  8114. .notoffendsamp1:
  8115.  
  8116.  cmp.l Samp2endLEFT,a1
  8117.  blt.s .notoffendsamp2
  8118.  move.l #empty,a1
  8119.  move.l #emptyend,Samp2endLEFT
  8120.  move.b #0,vol2left
  8121.  st LEFTCHANDATA+1+8
  8122.  move.w #0,LEFTCHANDATA+2+8
  8123. .notoffendsamp2:
  8124.  
  8125.  move.l a0,pos0LEFT
  8126.  move.l a1,pos2LEFT
  8127.  
  8128. nochannel0:
  8129.  
  8130.  tst.b CHANNELDATA+16
  8131.  bne nochannel1
  8132.  
  8133.  
  8134.  move.l pos0RIGHT,a0
  8135.  move.l pos2RIGHT,a1
  8136.  
  8137.  move.l Aupt1,a3
  8138.  move.l a3,$dff0b0
  8139.  move.l Auback1,Aupt1
  8140.  move.l a3,Auback1
  8141.  
  8142.  move.l #tab,a2
  8143.  
  8144.  moveq #0,d0
  8145.  moveq #0,d1
  8146.  move.b vol0right,d0
  8147.  move.b vol2right,d1
  8148.  cmp.b d1,d0
  8149.  slt swappedem
  8150.  bge.s fbig1
  8151.  
  8152. ; d1 is bigger so scale d0 and use d1
  8153. ; as audiochannel volume.
  8154.  
  8155.  exg a0,a1
  8156.  asl.w #6,d0
  8157.  divs d1,d0
  8158.  lsl.w #8,d0
  8159.  adda.w d0,a2
  8160.  move.w d1,$dff0b8
  8161.  bra.s donechan1
  8162.  
  8163. fbig1:
  8164.  tst.w d0
  8165.  beq.s donechan1
  8166.  asl.w #6,d1
  8167.  divs d0,d1
  8168.  lsl.w #8,d1
  8169.  adda.w d1,a2
  8170.  move.w d0,$dff0b8
  8171.  
  8172. donechan1:
  8173.  moveq #0,d0
  8174.  moveq #0,d1
  8175.  moveq #0,d2
  8176.  moveq #0,d3
  8177.  moveq #0,d4
  8178.  moveq #0,d5
  8179.  move.w #49,d7
  8180. loop2:
  8181.  move.l (a0)+,d0
  8182.  move.b (a1)+,d1
  8183.  move.b (a1)+,d2
  8184.  move.b (a1)+,d3
  8185.  move.b (a1)+,d4
  8186.  move.b (a2,d3.w),d5
  8187.  swap d5
  8188.  move.b (a2,d1.w),d5
  8189.  asl.l #8,d5
  8190.  move.b (a2,d2.w),d5
  8191.  swap d5
  8192.  move.b (a2,d4.w),d5
  8193.  add.l d5,d0
  8194.  move.l d0,(a3)+
  8195.  dbra d7,loop2
  8196.  
  8197.  tst.b swappedem
  8198.  beq.s ok01
  8199.  exg a0,a1
  8200. ok01:
  8201.  
  8202.  cmp.l Samp0endRIGHT,a0
  8203.  blt.s .notoffendsamp1
  8204.  move.l #empty,a0
  8205.  move.l #emptyend,Samp0endRIGHT
  8206.  move.b #0,vol0right
  8207.  st RIGHTCHANDATA+1
  8208.  move.w #0,RIGHTCHANDATA+2
  8209. .notoffendsamp1:
  8210.  
  8211.  cmp.l Samp2endRIGHT,a1
  8212.  blt.s .notoffendsamp2
  8213.  move.l #empty,a1
  8214.  move.l #emptyend,Samp2endRIGHT
  8215.  move.b #0,vol2right
  8216.  st RIGHTCHANDATA+1+8
  8217.  move.w #0,RIGHTCHANDATA+2+8
  8218. .notoffendsamp2:
  8219.  
  8220.  move.l a0,pos0RIGHT
  8221.  move.l a1,pos2RIGHT
  8222.  
  8223. nochannel1:
  8224.  
  8225. ******************* Other two channels
  8226.  
  8227.  move.l pos1LEFT,a0
  8228.  move.l pos3LEFT,a1
  8229.  
  8230.  move.l #tab,a2
  8231.  
  8232.  moveq #0,d0
  8233.  moveq #0,d1
  8234.  move.b vol1left,d0
  8235.  move.b vol3left,d1
  8236.  cmp.b d1,d0
  8237.  slt swappedem
  8238.  bge.s fbig2
  8239.  
  8240. ; d1 is bigger so scale d0 and use d1
  8241. ; as audiochannel volume.
  8242.  
  8243.  exg a0,a1
  8244.  asl.w #6,d0
  8245.  divs d1,d0
  8246.  lsl.w #8,d0
  8247.  adda.w d0,a2
  8248.  move.w d1,$dff0d8
  8249.  bra.s donechan2
  8250.  
  8251. fbig2:
  8252.  tst.w d0
  8253.  beq.s donechan2
  8254.  asl.w #6,d1
  8255.  divs d0,d1
  8256.  lsl.w #8,d1
  8257.  adda.w d1,a2
  8258.  move.w d0,$dff0d8
  8259.  
  8260. donechan2:
  8261.  
  8262.  move.l Aupt2,a3
  8263.  move.l a3,$dff0d0
  8264.  move.l Auback2,Aupt2
  8265.  move.l a3,Auback2
  8266.  
  8267.  moveq #0,d0
  8268.  moveq #0,d1
  8269.  moveq #0,d2
  8270.  moveq #0,d3
  8271.  moveq #0,d4
  8272.  moveq #0,d5
  8273.  move.w #49,d7
  8274. loop3:
  8275.  move.l (a0)+,d0
  8276.  move.b (a1)+,d1
  8277.  move.b (a1)+,d2
  8278.  move.b (a1)+,d3
  8279.  move.b (a1)+,d4
  8280.  move.b (a2,d3.w),d5
  8281.  swap d5
  8282.  move.b (a2,d1.w),d5
  8283.  asl.l #8,d5
  8284.  move.b (a2,d2.w),d5
  8285.  swap d5
  8286.  move.b (a2,d4.w),d5
  8287.  add.l d5,d0
  8288.  move.l d0,(a3)+
  8289.  dbra d7,loop3
  8290.  
  8291.  tst.b swappedem
  8292.  beq.s .ok23
  8293.  exg a0,a1
  8294. .ok23:
  8295.  
  8296.  cmp.l Samp1endLEFT,a0
  8297.  blt.s .notoffendsamp3
  8298.  move.l #empty,a0
  8299.  move.l #emptyend,Samp1endLEFT
  8300.  move.b #0,vol1left
  8301.  st LEFTCHANDATA+1+4
  8302.  move.w #0,LEFTCHANDATA+2+4
  8303. .notoffendsamp3:
  8304.  
  8305.  cmp.l Samp3endLEFT,a1
  8306.  blt.s .notoffendsamp4
  8307.  move.l #empty,a1
  8308.  move.l #emptyend,Samp3endLEFT
  8309.  move.b #0,vol3left
  8310.  st LEFTCHANDATA+1+12
  8311.  move.w #0,LEFTCHANDATA+2+12
  8312. .notoffendsamp4:
  8313.  
  8314.  move.l a0,pos1LEFT
  8315.  move.l a1,pos3LEFT
  8316.  
  8317.  move.l pos1RIGHT,a0
  8318.  move.l pos3RIGHT,a1
  8319.  
  8320.  move.l Aupt3,a3
  8321.  move.l a3,$dff0c0
  8322.  move.l Auback3,Aupt3
  8323.  move.l a3,Auback3
  8324.  
  8325.  move.l #tab,a2
  8326.  
  8327.  moveq #0,d0
  8328.  moveq #0,d1
  8329.  move.b vol1right,d0
  8330.  move.b vol3right,d1
  8331.  cmp.b d1,d0
  8332.  slt.s swappedem
  8333.  bge.s fbig3
  8334.  
  8335.  exg a0,a1
  8336.  asl.w #6,d0
  8337.  divs d1,d0
  8338.  lsl.w #8,d0
  8339.  adda.w d0,a2
  8340.  move.w d1,$dff0c8
  8341.  bra.s donechan3
  8342.  
  8343. fbig3:
  8344.  tst.w d0
  8345.  beq.s donechan3
  8346.  asl.w #6,d1
  8347.  divs d0,d1
  8348.  lsl.w #8,d1
  8349.  adda.w d1,a2
  8350.  move.w d0,$dff0c8
  8351. donechan3:
  8352.  
  8353.  moveq #0,d0
  8354.  moveq #0,d1
  8355.  moveq #0,d2
  8356.  moveq #0,d3
  8357.  moveq #0,d4
  8358.  moveq #0,d5
  8359.  move.w #49,d7
  8360. loop4:
  8361.  move.l (a0)+,d0
  8362.  move.b (a1)+,d1
  8363.  move.b (a1)+,d2
  8364.  move.b (a1)+,d3
  8365.  move.b (a1)+,d4
  8366.  move.b (a2,d3.w),d5
  8367.  swap d5
  8368.  move.b (a2,d1.w),d5
  8369.  asl.l #8,d5
  8370.  move.b (a2,d2.w),d5
  8371.  swap d5
  8372.  move.b (a2,d4.w),d5
  8373.  add.l d5,d0
  8374.  move.l d0,(a3)+
  8375.  dbra d7,loop4
  8376.  
  8377.  tst.b swappedem
  8378.  beq.s .ok23
  8379.  exg a0,a1
  8380. .ok23:
  8381.  
  8382.  cmp.l Samp1endRIGHT,a0
  8383.  blt.s notoffendsamp3
  8384.  move.l #empty,a0
  8385.  move.l #emptyend,Samp1endRIGHT
  8386.  move.b #0,vol1right
  8387.  st RIGHTCHANDATA+1+4
  8388.  move.w #0,RIGHTCHANDATA+2+4
  8389. notoffendsamp3:
  8390.  
  8391.  cmp.l Samp3endRIGHT,a1
  8392.  blt.s notoffendsamp4
  8393.  move.l #empty,a1
  8394.  move.l #emptyend,Samp3endRIGHT
  8395.  move.b #0,vol3right
  8396.  st RIGHTCHANDATA+1+12
  8397.  move.w #0,RIGHTCHANDATA+2+12
  8398. notoffendsamp4:
  8399.  
  8400.  move.l a0,pos1RIGHT
  8401.  move.l a1,pos3RIGHT
  8402.  
  8403.  movem.l (a7)+,d0-d7/a0-a6
  8404.  tst.b counting
  8405.  beq .nostartcounter
  8406.  JSR STARTCOUNT
  8407. .nostartcounter:
  8408.  
  8409.  moveq #0,d0
  8410.  rts
  8411.  
  8412. ***********************************
  8413. * 4 channel sound routine
  8414. ***********************************
  8415.  
  8416. fourchannel:
  8417.  
  8418.  move.l #$dff000,a6
  8419.  
  8420.  btst #7,intreqrl(a6)
  8421.  beq.s nofinish0
  8422. ; move.w #0,LEFTCHANDATA+2
  8423. ; st LEFTCHANDATA+1
  8424.  move.l #null,$a0(a6)
  8425.  move.w #100,$a4(a6) 
  8426.  move.w #$0080,intreq(a6)
  8427. nofinish0:
  8428.  
  8429.  tst.b NoiseMade0pLEFT
  8430.  beq.s NoChan0sound
  8431.  
  8432.  move.l Samp0endLEFT,d0
  8433.  move.l pos0LEFT,d1
  8434.  sub.l d1,d0
  8435.  lsr.l #1,d0
  8436.  move.w d0,$a4(a6)
  8437.  move.l d1,$a0(a6)
  8438.  move.w #$8201,dmacon(a6)
  8439.  moveq #0,d0
  8440.  move.b vol0left,d0
  8441.  move.w d0,$a8(a6)
  8442.  
  8443. NoChan0sound:
  8444.  
  8445. *****************************************
  8446. *****************************************
  8447.  
  8448.  btst #0,intreqr(a6)
  8449.  beq.s nofinish1
  8450.  move.l #null,$b0(a6)
  8451.  move.w #100,$b4(a6)
  8452.  move.w #$0100,intreq(a6)
  8453. nofinish1:
  8454.  
  8455.  tst.b NoiseMade0pRIGHT
  8456.  beq.s NoChan1sound
  8457.  
  8458.  move.l Samp0endRIGHT,d0
  8459.  move.l pos0RIGHT,d1
  8460.  sub.l d1,d0
  8461.  lsr.l #1,d0
  8462.  move.w d0,$b4(a6)
  8463.  move.l d1,$b0(a6)
  8464.  move.w d0,playnull1
  8465.  move.w #$8202,dmacon(a6)
  8466.  moveq #0,d0
  8467.  move.b vol0right,d0
  8468.  move.w d0,$b8(a6)
  8469.  
  8470. NoChan1sound:
  8471.  
  8472. *****************************************
  8473. *****************************************
  8474.  
  8475.  btst #1,intreqr(a6)
  8476.  beq.s nofinish2
  8477.  move.l #null,$c0(a6)
  8478.  move.w #100,$c4(a6)
  8479.  move.w #$0200,intreq(a6)
  8480. nofinish2:
  8481.  
  8482.  tst.b NoiseMade1pRIGHT
  8483.  beq.s NoChan2sound
  8484.  
  8485.  move.l Samp1endRIGHT,d0
  8486.  move.l pos1RIGHT,d1
  8487.  sub.l d1,d0
  8488.  lsr.l #1,d0
  8489.  move.w d0,$c4(a6)
  8490.  move.w d0,playnull2
  8491.  
  8492.  move.l d1,$c0(a6)
  8493.  move.w #$8204,dmacon(a6)
  8494.  moveq #0,d0
  8495.  move.b vol1right,d0
  8496.  move.w d0,$c8(a6)
  8497.  
  8498. NoChan2sound:
  8499.  
  8500. *****************************************
  8501. *****************************************
  8502.  
  8503.  btst #2,intreqr(a6)
  8504.  beq.s nofinish3
  8505.  move.l #null,$d0(a6)
  8506.  move.w #100,$d4(a6)
  8507.  move.w #$0400,intreq(a6)
  8508. nofinish3:
  8509.  
  8510.  tst.b NoiseMade1pLEFT
  8511.  beq.s NoChan3sound
  8512.  
  8513.  move.l Samp1endLEFT,d0
  8514.  move.l pos1LEFT,d1
  8515.  sub.l d1,d0
  8516.  lsr.l #1,d0
  8517.  move.w d0,$d4(a6)
  8518.  move.w d0,playnull3
  8519.  move.l d1,$d0(a6)
  8520.  move.w #$8208,dmacon(a6)
  8521.  moveq #0,d0
  8522.  move.b vol1left,d0
  8523.  move.w d0,$d8(a6)
  8524.  
  8525. NoChan3sound:
  8526.  
  8527. nomorechannels:
  8528.  
  8529.  move.l NoiseMade0LEFT,NoiseMade0pLEFT
  8530.  move.l #0,NoiseMade0LEFT
  8531.  move.l NoiseMade0RIGHT,NoiseMade0pRIGHT
  8532.  move.l #0,NoiseMade0RIGHT
  8533.  
  8534. ; tst.b playnull0
  8535. ; beq.s .nnul
  8536. ; sub.b #1,playnull0
  8537. ; bra.s chan0still
  8538. ;.nnul:
  8539. ; 
  8540. ;chan0still:
  8541.  
  8542.  tst.b NoiseMade0pLEFT
  8543.  bne.s chan0still
  8544.  tst.w playnull0
  8545.  beq.s nnul0
  8546.  sub.w #100,playnull0
  8547.  bra.s chan0still
  8548. nnul0:
  8549.  move.w #0,LEFTCHANDATA+2
  8550.  st LEFTCHANDATA+1
  8551. chan0still:
  8552.  
  8553.  tst.b NoiseMade0pRIGHT
  8554.  bne.s chan1still
  8555.  tst.w playnull1
  8556.  beq.s nnul1
  8557.  sub.w #100,playnull1
  8558.  bra.s chan1still
  8559. nnul1:
  8560.  move.w #0,RIGHTCHANDATA+2
  8561.  st RIGHTCHANDATA+1
  8562. chan1still:
  8563.  
  8564.  tst.b NoiseMade1pRIGHT
  8565.  bne.s chan2still
  8566.  tst.w playnull2
  8567.  beq.s nnul2
  8568.  sub.w #100,playnull2
  8569.  bra.s chan2still
  8570. nnul2:
  8571.  move.w #0,RIGHTCHANDATA+2+4
  8572.  st RIGHTCHANDATA+1+4
  8573. chan2still:
  8574.  
  8575.  tst.b NoiseMade1pLEFT
  8576.  bne.s chan3still
  8577.  tst.w playnull3
  8578.  beq.s nnul3
  8579.  sub.w #100,playnull3
  8580.  bra.s chan3still
  8581. nnul3:
  8582.  move.w #0,LEFTCHANDATA+2+4
  8583.  st LEFTCHANDATA+1+4
  8584.  
  8585. chan3still:
  8586.  
  8587.  
  8588.  movem.l (a7)+,d0-d7/a0-a6
  8589.  
  8590.  moveq #0,d0
  8591.  rts
  8592.  
  8593. backbeat: dc.w 0
  8594.  
  8595. playnull0: dc.w 0
  8596. playnull1: dc.w 0
  8597. playnull2: dc.w 0
  8598. playnull3: dc.w 0
  8599.  
  8600. Samp0endRIGHT: dc.l emptyend
  8601. Samp1endRIGHT: dc.l emptyend
  8602. Samp2endRIGHT: dc.l emptyend
  8603. Samp3endRIGHT: dc.l emptyend
  8604. Samp0endLEFT: dc.l emptyend
  8605. Samp1endLEFT: dc.l emptyend
  8606. Samp2endLEFT: dc.l emptyend
  8607. Samp3endLEFT: dc.l emptyend
  8608.  
  8609. Aupt0: dc.l null
  8610. Auback0: dc.l null+500
  8611. Aupt2: dc.l null3
  8612. Auback2: dc.l null3+500
  8613. Aupt3: dc.l null4
  8614. Auback3: dc.l null4+500
  8615. Aupt1: dc.l null2
  8616. Auback1: dc.l null2+500
  8617.  
  8618. NoiseMade0LEFT: dc.b 0
  8619. NoiseMade1LEFT: dc.b 0
  8620. NoiseMade2LEFT: dc.b 0
  8621. NoiseMade3LEFT: dc.b 0
  8622. NoiseMade0pLEFT: dc.b 0
  8623. NoiseMade1pLEFT: dc.b 0
  8624. NoiseMade2pLEFT: dc.b 0
  8625. NoiseMade3pLEFT: dc.b 0
  8626. NoiseMade0RIGHT: dc.b 0
  8627. NoiseMade1RIGHT: dc.b 0
  8628. NoiseMade2RIGHT: dc.b 0
  8629. NoiseMade3RIGHT: dc.b 0
  8630. NoiseMade0pRIGHT: dc.b 0
  8631. NoiseMade1pRIGHT: dc.b 0
  8632. NoiseMade2pRIGHT: dc.b 0
  8633. NoiseMade3pRIGHT: dc.b 0
  8634.  
  8635. empty: ds.l 100
  8636. emptyend:
  8637.  
  8638. **************************************
  8639. * I want a routine to calculate all the
  8640. * info needed for the sound player to
  8641. * work, given say position of noise, volume
  8642. * and sample number.
  8643.  
  8644. Samplenum: dc.w 0
  8645. Noisex: dc.w 0
  8646. Noisez: dc.w 0
  8647. Noisevol: dc.w 0
  8648. chanpick: dc.w 0
  8649. IDNUM: dc.w 0
  8650. needleft: dc.b 0
  8651. needright: dc.b 0
  8652. STEREO: dc.b $0
  8653. even
  8654. prot6: dc.w 0
  8655.  
  8656.  even
  8657.  
  8658. CHANNELDATA:
  8659. LEFTCHANDATA:
  8660.  dc.l $00000000
  8661.  dc.l $00000000
  8662.  dc.l $FF000000
  8663.  dc.l $FF000000
  8664. RIGHTCHANDATA:
  8665.  dc.l $00000000
  8666.  dc.l $00000000
  8667.  dc.l $FF000000
  8668.  dc.l $FF000000
  8669.  
  8670. RIGHTPLAYEDTAB: ds.l 20
  8671. LEFTPLAYEDTAB: ds.l 20
  8672.  
  8673. MakeSomeNoise:
  8674.  
  8675. ; Plan for new sound handler:
  8676. ; It is sent a sample number,
  8677. ; a position relative to the
  8678. ; player, an id number and a volume.
  8679. ; Also notifplaying.
  8680.  
  8681. ; indirect inputs are the available
  8682. ; channel flags and whether or not
  8683. ; stereo sound is selected.
  8684.  
  8685. ; the algorithm must decide
  8686. ; whether the new sound is more
  8687. ; important than the ones already
  8688. ; playing. Thus an 'importance'
  8689. ; must be calculated, probably
  8690. ; using volume.
  8691.  
  8692. ; The output needs to be:
  8693.  
  8694. ; Write the pointers and volumes of
  8695. ; the sound channels
  8696.  
  8697.  
  8698.  tst.b notifplaying
  8699.  beq.s dontworry
  8700.  
  8701. ; find if we are already playing
  8702.  
  8703.  move.b IDNUM,d0
  8704.  move.w #7,d1
  8705.  lea CHANNELDATA,a3
  8706. findsameasme
  8707.  tst.b (a3)
  8708.  bne.s notavail
  8709.  cmp.b 1(a3),d0
  8710.  beq SameAsMe
  8711. notavail:
  8712.  add.w #4,a3
  8713.  dbra d1,findsameasme
  8714.  bra dontworry
  8715. SameAsMe
  8716.  rts
  8717.  
  8718. noiseloud: dc.w 0
  8719.  
  8720. dontworry:
  8721.  
  8722. ; Ok its fine for us to play a sound.
  8723. ; So calculate left/right volume.
  8724.  
  8725.  move.w Noisex,d1
  8726.  muls d1,d1
  8727.  move.w Noisez,d2
  8728.  muls d2,d2
  8729.  move.w #64,d3
  8730.  move.w #32767,noiseloud
  8731.  moveq #1,d0
  8732.  add.l d1,d2
  8733.  beq pastcalc
  8734.  
  8735.  move.w #31,d0
  8736. .findhigh
  8737.  btst d0,d2
  8738.  bne .foundhigh
  8739.  dbra d0,.findhigh
  8740. .foundhigh
  8741.  asr.w #1,d0
  8742.  clr.l d3
  8743.  bset d0,d3
  8744.  move.l d3,d0
  8745.  
  8746.  move.w d0,d3
  8747.  muls d3,d3    ; x*x
  8748.  sub.l d2,d3    ; x*x-a
  8749.  asr.l #1,d3    ; (x*x-a)/2
  8750.  divs d0,d3    ; (x*x-a)/2x
  8751.  sub.w d3,d0    ; second approx
  8752.  bgt .stillnot0
  8753.  move.w #1,d0
  8754. .stillnot0
  8755.  
  8756.  move.w d0,d3
  8757.  muls d3,d3
  8758.  sub.l d2,d3
  8759.  asr.l #1,d3
  8760.  divs d0,d3
  8761.  sub.w d3,d0    ; second approx
  8762.  bgt .stillnot02
  8763.  move.w #1,d0
  8764. .stillnot02
  8765.  
  8766.  move.w Noisevol,d3
  8767.  ext.l d3
  8768.  asl.l #6,d3
  8769.  cmp.l #32767,d3
  8770.  ble.s .nnnn
  8771.  move.l #32767,d3
  8772. .nnnn
  8773.  
  8774.  asr.w #2,d0
  8775.  addq #1,d0
  8776.  divs d0,d3
  8777.  
  8778.  move.w d3,noiseloud
  8779.  
  8780.  cmp.w #64,d3
  8781.  ble.s notooloud
  8782.  move.w #64,d3
  8783. notooloud:
  8784.  
  8785. pastcalc:
  8786.  
  8787.     ; d3 contains volume of noise.
  8788.     
  8789.  move.w d3,d4
  8790.  tst.b STEREO
  8791.  beq NOSTEREO
  8792.  
  8793.  move.w d3,d2
  8794.  muls Noisex,d2
  8795.  asl.w #2,d0
  8796.  divs d0,d2
  8797.  
  8798.  bgt.s quietleft
  8799.  add.w d2,d4
  8800.  bge.s donequiet
  8801.  move.w #0,d4
  8802.  bra.s donequiet
  8803. quietleft:
  8804.  sub.w d2,d3
  8805.  bge.s donequiet
  8806.  move.w #0,d3
  8807. donequiet:
  8808.  
  8809. ; d3=leftvol?
  8810. ; d4=rightvol?
  8811.  
  8812.  clr.w needleft
  8813.  
  8814.  cmp.b d3,d4
  8815.  bgt.s RightLouder
  8816.  
  8817. ; Left is louder; is it MUCH louder?
  8818.  
  8819.  st needleft
  8820.  move.w d3,d2
  8821.  sub.w d4,d2
  8822.  cmp.w #32,d2
  8823.  slt needright
  8824.  bra aboutsame
  8825.  
  8826. RightLouder:
  8827.  st needright
  8828.  move.w d4,d2
  8829.  sub.w d3,d2
  8830.  cmp.w #32,d2
  8831.  slt needleft
  8832.  
  8833. aboutsame:
  8834.  
  8835.  
  8836. ; Find least important sound on left
  8837.  
  8838.  move.l #0,a2
  8839.  move.l #0,d5
  8840.  move.w #32767,d2
  8841.  move.b IDNUM,d0
  8842.  lea LEFTCHANDATA,a3
  8843.  move.w #3,d1
  8844. FindLeftChannel
  8845.  tst.b (a3)
  8846.  bne.s .notactive
  8847.  cmp.b 1(a3),d0
  8848.  beq.s FOUNDLEFT
  8849.  cmp.w 2(a3),d2
  8850.  blt.s .notactive
  8851.  move.w 2(a3),d2
  8852.  move.l a3,a2
  8853.  move.w d5,d6
  8854.  
  8855. .notactive:
  8856.  add.w #4,a3
  8857.  add.w #1,d5
  8858.  dbra d1,FindLeftChannel
  8859.  move.l a2,a3
  8860.  bra.s gopastleft
  8861. FOUNDLEFT:
  8862.  move.w d5,d6
  8863. gopastleft:
  8864.  tst.l a3
  8865.  bne.s FOUNDALEFT
  8866.  rts
  8867. FOUNDALEFT:
  8868.  
  8869. ; d6 = channel number
  8870.  move.b d0,1(a3)
  8871.  move.w d3,2(a3)
  8872.  
  8873.  move.w Samplenum,d5
  8874.  move.l #SampleList,a3
  8875.  move.l (a3,d5.w*8),a1
  8876.  move.l 4(a3,d5.w*8),a2
  8877.  
  8878.  tst.b d6
  8879.  seq NoiseMade0LEFT
  8880.  beq.s .chan0
  8881.  cmp.b #2,d6
  8882.  slt NoiseMade1LEFT
  8883.  blt .chan1
  8884.  seq NoiseMade2LEFT
  8885.  beq .chan2
  8886.  st NoiseMade3LEFT
  8887.  
  8888.  move.b d5,LEFTPLAYEDTAB+9
  8889.  move.b d3,LEFTPLAYEDTAB+1+9
  8890.  move.b d4,LEFTPLAYEDTAB+2+9
  8891.  move.b d3,vol3left
  8892.  move.l a1,pos3LEFT
  8893.  move.l a2,Samp3endLEFT
  8894.  bra dorightchan
  8895.  
  8896. .chan0: 
  8897.  move.b d5,LEFTPLAYEDTAB
  8898.  move.b d3,LEFTPLAYEDTAB+1
  8899.  move.b d4,LEFTPLAYEDTAB+2
  8900.  move.l a1,pos0LEFT
  8901.  move.l a2,Samp0endLEFT
  8902.  move.b d3,vol0left
  8903.  bra dorightchan
  8904.  
  8905. .chan1:
  8906.  move.b d5,LEFTPLAYEDTAB+3
  8907.  move.b d3,LEFTPLAYEDTAB+1+3
  8908.  move.b d4,LEFTPLAYEDTAB+2+3
  8909.  move.b d3,vol1left
  8910.  move.l a1,pos1LEFT
  8911.  move.l a2,Samp1endLEFT
  8912.  bra dorightchan
  8913.  
  8914. .chan2: 
  8915.  move.b d5,LEFTPLAYEDTAB+6
  8916.  move.b d3,LEFTPLAYEDTAB+1+6
  8917.  move.b d4,LEFTPLAYEDTAB+2+6
  8918.  move.l a1,pos2LEFT
  8919.  move.l a2,Samp2endLEFT
  8920.  move.b d3,vol2left
  8921.  
  8922. dorightchan:
  8923.  
  8924. ; Find least important sound on right
  8925.  
  8926.  move.l #0,a2
  8927.  move.l #0,d5
  8928.  move.w #10000,d2
  8929.  move.b IDNUM,d0
  8930.  lea RIGHTCHANDATA,a3
  8931.  move.w #3,d1
  8932. FindRightChannel
  8933.  tst.b (a3)
  8934.  bne.s .notactive
  8935.  cmp.b 1(a3),d0
  8936.  beq.s FOUNDRIGHT
  8937.  cmp.w 2(a3),d2
  8938.  blt.s .notactive
  8939.  move.w 2(a3),d2
  8940.  move.l a3,a2
  8941.  move.w d5,d6
  8942.  
  8943. .notactive:
  8944.  add.w #4,a3
  8945.  add.w #1,d5
  8946.  dbra d1,FindRightChannel
  8947.  move.l a2,a3
  8948.  bra.s gopastright
  8949. FOUNDRIGHT:
  8950.  move.w d5,d6
  8951. gopastright:
  8952.  tst.l a3
  8953.  bne.s FOUNDARIGHT
  8954.  rts
  8955. FOUNDARIGHT:
  8956.  
  8957. ; d6 = channel number
  8958.  move.b d0,1(a3)
  8959.  move.w d3,2(a3)
  8960.  
  8961.  move.w Samplenum,d5
  8962.  move.l #SampleList,a3
  8963.  move.l (a3,d5.w*8),a1
  8964.  move.l 4(a3,d5.w*8),a2
  8965.  
  8966.  tst.b d6
  8967.  seq NoiseMade0RIGHT
  8968.  beq.s .chan0
  8969.  cmp.b #2,d6
  8970.  slt NoiseMade1RIGHT
  8971.  blt .chan1
  8972.  seq NoiseMade2RIGHT
  8973.  beq .chan2
  8974.  st NoiseMade3RIGHT
  8975.  
  8976.  move.b d5,RIGHTPLAYEDTAB+9
  8977.  move.b d3,RIGHTPLAYEDTAB+1+9
  8978.  move.b d4,RIGHTPLAYEDTAB+2+9
  8979.  move.b d4,vol3right
  8980.  move.l a1,pos3RIGHT
  8981.  move.l a2,Samp3endRIGHT
  8982.  rts
  8983.  
  8984. .chan0: 
  8985.  move.b d5,RIGHTPLAYEDTAB
  8986.  move.b d3,RIGHTPLAYEDTAB+1
  8987.  move.b d4,RIGHTPLAYEDTAB+2
  8988.  move.l a1,pos0RIGHT
  8989.  move.l a2,Samp0endRIGHT
  8990.  move.b d4,vol0right
  8991.  rts
  8992.  
  8993. .chan1:
  8994.  move.b d5,RIGHTPLAYEDTAB+3
  8995.  move.b d3,RIGHTPLAYEDTAB+1+3
  8996.  move.b d4,RIGHTPLAYEDTAB+2+3
  8997.  move.b d3,vol1right
  8998.  move.l a1,pos1RIGHT
  8999.  move.l a2,Samp1endRIGHT
  9000.  rts
  9001.  
  9002. .chan2: 
  9003.  move.b d5,RIGHTPLAYEDTAB+6
  9004.  move.b d3,RIGHTPLAYEDTAB+1+6
  9005.  move.b d4,RIGHTPLAYEDTAB+2+6
  9006.  move.l a1,pos2RIGHT
  9007.  move.l a2,Samp2endRIGHT
  9008.  move.b d3,vol2right
  9009.  rts
  9010.  
  9011. NOSTEREO:
  9012.  move.l #0,a2
  9013.  move.l #-1,d5
  9014.  move.w #32767,d2
  9015.  move.b IDNUM,d0
  9016.  lea CHANNELDATA,a3
  9017.  move.w #7,d1
  9018. FindChannel
  9019.  tst.b (a3)
  9020.  bne.s .notactive
  9021.  cmp.b 1(a3),d0
  9022.  beq.s FOUNDCHAN
  9023.  cmp.w 2(a3),d2
  9024.  blt.s .notactive
  9025.  move.w 2(a3),d2
  9026.  move.l a3,a2
  9027.  move.w d5,d6
  9028.  add.w #1,d6
  9029.  
  9030. .notactive:
  9031.  add.w #4,a3
  9032.  add.w #1,d5
  9033.  dbra d1,FindChannel
  9034.  
  9035.  move.l a2,a3
  9036.  bra.s gopastchan
  9037. FOUNDCHAN:
  9038.  move.w d5,d6
  9039.  add.w #1,d6
  9040. gopastchan:
  9041.  tst.w d6
  9042.  bge.s FOUNDACHAN
  9043. tooquiet:
  9044.  rts
  9045. FOUNDACHAN:
  9046.  
  9047. ; d6 = channel number
  9048.  
  9049.  cmp.w noiseloud,d2
  9050.  bgt.s tooquiet
  9051.  
  9052.  move.b d0,1(a3)
  9053.  move.w noiseloud,2(a3)
  9054.  
  9055.  move.w Samplenum,d5
  9056.  move.l #SampleList,a3
  9057.  move.l (a3,d5.w*8),a1
  9058.  move.l 4(a3,d5.w*8),a2
  9059.  
  9060.  tst.b d6
  9061.  beq .chan0
  9062.  cmp.b #2,d6
  9063.  blt .chan1
  9064.  beq .chan2
  9065.  cmp.b #4,d6
  9066.  blt .chan3
  9067.  beq .chan4
  9068.  cmp.b #6,d6
  9069.  blt .chan5
  9070.  beq .chan6
  9071.  st NoiseMade3RIGHT
  9072.  
  9073.  move.b d5,RIGHTPLAYEDTAB+9
  9074.  move.b d3,RIGHTPLAYEDTAB+1+9
  9075.  move.b d4,RIGHTPLAYEDTAB+2+9
  9076.  move.b d4,vol3right
  9077.  move.l a1,pos3RIGHT
  9078.  move.l a2,Samp3endRIGHT
  9079.  rts
  9080.  
  9081. .chan3:
  9082.  st NoiseMade3LEFT
  9083.  move.b d5,LEFTPLAYEDTAB+9
  9084.  move.b d3,LEFTPLAYEDTAB+1+9
  9085.  move.b d4,LEFTPLAYEDTAB+2+9
  9086.  move.b d3,vol3left
  9087.  move.l a1,pos3LEFT
  9088.  move.l a2,Samp3endLEFT
  9089.  bra dorightchan
  9090.  
  9091. .chan0: 
  9092.  st NoiseMade0LEFT
  9093.  move.b d5,LEFTPLAYEDTAB
  9094.  move.b d3,LEFTPLAYEDTAB+1
  9095.  move.b d4,LEFTPLAYEDTAB+2
  9096.  move.l a1,pos0LEFT
  9097.  move.l a2,Samp0endLEFT
  9098.  move.b d3,vol0left
  9099.  rts
  9100.  
  9101. .chan1:
  9102.  st NoiseMade1LEFT
  9103.  move.b d5,LEFTPLAYEDTAB+3
  9104.  move.b d3,LEFTPLAYEDTAB+1+3
  9105.  move.b d4,LEFTPLAYEDTAB+2+3
  9106.  move.b d3,vol1left
  9107.  move.l a1,pos1LEFT
  9108.  move.l a2,Samp1endLEFT
  9109.  rts
  9110.  
  9111. .chan2: 
  9112.  st NoiseMade2LEFT
  9113.  move.b d5,LEFTPLAYEDTAB+6
  9114.  move.b d3,LEFTPLAYEDTAB+1+6
  9115.  move.b d4,LEFTPLAYEDTAB+2+6
  9116.  move.l a1,pos2LEFT
  9117.  move.l a2,Samp2endLEFT
  9118.  move.b d3,vol2left
  9119.  rts
  9120.  
  9121. .chan4: 
  9122.  st NoiseMade0RIGHT
  9123.  move.b d5,RIGHTPLAYEDTAB
  9124.  move.b d3,RIGHTPLAYEDTAB+1
  9125.  move.b d4,RIGHTPLAYEDTAB+2
  9126.  move.l a1,pos0RIGHT
  9127.  move.l a2,Samp0endRIGHT
  9128.  move.b d4,vol0right
  9129.  rts
  9130.  
  9131. .chan5:
  9132.  st NoiseMade1RIGHT
  9133.  move.b d5,RIGHTPLAYEDTAB+3
  9134.  move.b d3,RIGHTPLAYEDTAB+1+3
  9135.  move.b d4,RIGHTPLAYEDTAB+2+3
  9136.  move.b d3,vol1right
  9137.  move.l a1,pos1RIGHT
  9138.  move.l a2,Samp1endRIGHT
  9139.  rts
  9140.  
  9141. .chan6: 
  9142.  st NoiseMade2RIGHT
  9143.  move.b d5,RIGHTPLAYEDTAB+6
  9144.  move.b d3,RIGHTPLAYEDTAB+1+6
  9145.  move.b d4,RIGHTPLAYEDTAB+2+6
  9146.  move.l a1,pos2RIGHT
  9147.  move.l a2,Samp2endRIGHT
  9148.  move.b d3,vol2right
  9149.  rts
  9150.  
  9151. SampleList:
  9152.  dc.l Scream,EndScream
  9153.  dc.l Shoot,EndShoot
  9154.  dc.l Munch,EndMunch
  9155.  dc.l PooGun,EndPooGun
  9156.  dc.l Collect,EndCollect
  9157. ;5
  9158.  dc.l DoorNoise,EndDoorNoise
  9159.  dc.l 0,0
  9160.  dc.l Stomp,EndStomp
  9161.  dc.l LowScream,EndLowScream
  9162.  dc.l BaddieGun,EndBaddieGun
  9163. ;10
  9164.  dc.l SwitchNoise,EndSwitch
  9165.  dc.l Reload,EndReload
  9166.  dc.l NoAmmo,EndNoAmmo
  9167.  dc.l Splotch,EndSplotch
  9168.  dc.l SplatPop,EndSplatPop
  9169. ;15
  9170.  dc.l Boom,EndBoom
  9171.  dc.l Hiss,EndHiss
  9172.  dc.l Howl1,EndHowl1
  9173.  dc.l Howl2,EndHowl2
  9174.  dc.l Pant,EndPant
  9175. ;20
  9176.  dc.l Whoosh,EndWhoosh
  9177.  dc.l ROAR,EndROAR
  9178.  dc.l whoosh,Endwhoosh
  9179.  dc.l 0,0
  9180.  dc.l 0,0
  9181.  dc.l 0,0
  9182.  dc.l 0,0
  9183.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9184.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9185.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9186.  dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  9187.  
  9188.  dc.l 0
  9189.  
  9190. storeval: dc.w 0
  9191.  
  9192.  include "ab3:source_4000/wallchunk.s"
  9193.  include "ab3:source_4000/loadfromdisk.s"
  9194.  include "ab3:source_4000/screensetup.s"
  9195.  include "ab3:source_4000/CONTROLLOOP.s"
  9196.  
  9197.  
  9198.  
  9199.  
  9200. saveinters:  
  9201.  dc.w 0
  9202.  
  9203. z: dc.w 10
  9204.  
  9205. notifplaying:
  9206.  dc.w 0
  9207.  
  9208. audpos1: dc.w 0
  9209. audpos1b: dc.w 0
  9210. audpos2: dc.w 0
  9211. audpos2b: dc.w 0
  9212. audpos3: dc.w 0
  9213. audpos3b: dc.w 0
  9214. audpos4: dc.w 0
  9215. audpos4b: dc.w 0
  9216.  
  9217. vol0left: dc.w 0
  9218. vol0right: dc.w 0
  9219. vol1left: dc.w 0
  9220. vol1right: dc.w 0
  9221. vol2left: dc.w 0
  9222. vol2right: dc.w 0
  9223. vol3left: dc.w 0
  9224. vol3right: dc.w 0
  9225.  
  9226. pos: dc.l 0
  9227.  
  9228. pos0LEFT: dc.l empty
  9229. pos1LEFT: dc.l empty
  9230. pos2LEFT: dc.l empty
  9231. pos3LEFT: dc.l empty
  9232. pos0RIGHT: dc.l empty
  9233. pos1RIGHT: dc.l empty
  9234. pos2RIGHT: dc.l empty
  9235. pos3RIGHT: dc.l empty
  9236.  
  9237. numtodo dc.w 0
  9238.  
  9239. npt: dc.w 0
  9240.  
  9241. pretab:
  9242. val SET 0
  9243.  REPT 128
  9244.  dc.b val
  9245. val SET val+1
  9246.  ENDR
  9247. val SET -128
  9248.  REPT 128
  9249.  dc.b val
  9250. val SET val+1
  9251.  ENDR 
  9252.  
  9253. tab:
  9254.  ds.b 256*65
  9255.  
  9256.  
  9257. test: dc.l 0
  9258.  ds.l 30
  9259.  
  9260.  even
  9261. ConstCols:
  9262. ; incbin "ConstCols"
  9263.  even
  9264. Smoothscalecols:
  9265. ; incbin "smoothbumppalscaled"
  9266.  even
  9267. SmoothTile:
  9268. ; incbin "smoothbumptile"
  9269.  even
  9270. Bumpscalecols:
  9271. ; incbin "Bumppalscaled"
  9272.  even
  9273. Bumptile:
  9274. ; incbin "bumptile"
  9275.  even
  9276. scalecols: ;incbin "bytepixpalscaled"
  9277.  even
  9278. floorscalecols:
  9279.  incbin "floor256pal"
  9280.  ds.w 256*4
  9281.  
  9282.  even
  9283. PaletteAddr: dc.l 0
  9284. ChunkAddr: dc.l 0
  9285. ;walltiles:
  9286. ; dc.l GreenMechanicWALL
  9287. ; dc.l BlueGreyMetalWALL
  9288. ; dc.l TechnoDetailWALL
  9289. ; dc.l BlueStoneWALL
  9290. ; dc.l RedAlertWALL
  9291. ; dc.l RockWALL
  9292. ;
  9293. ;GreenMechanicWALL: incbin "ab3:includes/walls/greenmechanic.wad"
  9294. ;BlueGreyMetalWALL: incbin "ab3:includes/walls/BlueGreyMetal.wad"
  9295. ;TechnoDetailWALL: incbin "ab3:includes/walls/TechnoDetail.wad"
  9296. ;BlueStoneWALL: incbin "ab3:includes/walls/bluestone.wad"
  9297. ;RedAlertWALL: incbin "ab3:includes/walls/redalert.wad"
  9298. ;RockWALL: incbin "ab3:includes/walls/rock.wad"
  9299.  
  9300. floortile:
  9301.  dc.l 0
  9302. ; incbin "floortile" 
  9303.  even
  9304. wallrouts:
  9305. ; incbin "2x2WallDraw" 
  9306.  CNOP 0,64
  9307. BackPicture:
  9308.  incbin "backfile"
  9309. EndBackPicture:
  9310.  
  9311. drawpt: dc.l 0
  9312. olddrawpt: dc.l 0
  9313. frompt: dc.l 0 
  9314.  
  9315. SineTable:
  9316.  incbin "bigsine"
  9317.  
  9318. angspd: dc.w 0
  9319. flooryoff: dc.w 0
  9320. xoff: dc.l 0
  9321. yoff: dc.l 0
  9322. yvel: dc.l 0
  9323. zoff: dc.l 0
  9324. tyoff: dc.l 0
  9325. xspdval: dc.l 0
  9326. zspdval: dc.l 0
  9327. Zone: dc.w 0
  9328.  
  9329. PLR1: dc.b $ff
  9330.  even
  9331. PLR1_energy: dc.w 191
  9332. PLR1_GunSelected: dc.w 0
  9333. PLR1_cosval: dc.w 0
  9334. PLR1_sinval: dc.w 0
  9335. PLR1_angpos: dc.w 0
  9336. PLR1_angspd: dc.w 0
  9337. PLR1_xoff: dc.l 0
  9338. PLR1_yoff: dc.l 0
  9339. PLR1_yvel: dc.l 0
  9340. PLR1_zoff: dc.l 0
  9341. PLR1_tyoff: dc.l 0
  9342. PLR1_xspdval: dc.l 0
  9343. PLR1_zspdval: dc.l 0
  9344. PLR1_Zone: dc.w 0
  9345. PLR1_Roompt: dc.l 0
  9346. PLR1_OldRoompt: dc.l 0
  9347. PLR1_PointsToRotatePtr: dc.l 0
  9348. PLR1_ListOfGraphRooms: dc.l 0
  9349. PLR1_oldxoff: dc.l 0
  9350. PLR1_oldzoff: dc.l 0
  9351. PLR1_StoodInTop: dc.b 0
  9352.  even
  9353. PLR1_height: dc.l 0
  9354.  
  9355.  ds.w 4
  9356.  
  9357. OLDX1: dc.l 0
  9358. OLDX2: dc.l 0
  9359. OLDZ1: dc.l 0
  9360. OLDZ2: dc.l 0
  9361.  
  9362. XDIFF1: dc.l 0
  9363. ZDIFF1: dc.l 0
  9364. XDIFF2: dc.l 0
  9365. ZDIFF2: dc.l 0
  9366.  
  9367. PLR1s_cosval: dc.w 0
  9368. PLR1s_sinval: dc.w 0
  9369. PLR1s_angpos: dc.w 0
  9370. PLR1s_angspd: dc.w 0
  9371. PLR1s_xoff: dc.l 0
  9372. PLR1s_yoff: dc.l 0
  9373. PLR1s_yvel: dc.l 0
  9374. PLR1s_zoff: dc.l 0
  9375. PLR1s_tyoff: dc.l 0
  9376. PLR1s_xspdval: dc.l 0
  9377. PLR1s_zspdval: dc.l 0
  9378. PLR1s_Zone: dc.w 0
  9379. PLR1s_Roompt: dc.l 0
  9380. PLR1s_OldRoompt: dc.l 0
  9381. PLR1s_PointsToRotatePtr: dc.l 0
  9382. PLR1s_ListOfGraphRooms: dc.l 0
  9383. PLR1s_oldxoff: dc.l 0
  9384. PLR1s_oldzoff: dc.l 0
  9385. PLR1s_height: dc.l 0
  9386. PLR1s_targheight: dc.l 0
  9387.  
  9388. p1_xoff: dc.l 0
  9389. p1_zoff: dc.l 0
  9390. p1_yoff: dc.l 0
  9391. p1_height: dc.l 0
  9392. p1_angpos: dc.w 0
  9393. p1_bobble: dc.w 0
  9394. p1_clicked: dc.b 0
  9395. p1_spctap: dc.b 0
  9396. p1_ducked: dc.b 0
  9397. p1_gunselected: dc.b 0
  9398. p1_fire: dc.b 0
  9399.  even
  9400. p1_holddown: dc.w 0
  9401.  
  9402.  ds.w 4
  9403.  
  9404. PLR2: dc.b $ff
  9405.  even
  9406. PLR2_GunSelected: dc.w 0
  9407. PLR2_energy: dc.w 191
  9408. PLR2_cosval: dc.w 0
  9409. PLR2_sinval: dc.w 0
  9410. PLR2_angpos: dc.w 0
  9411. PLR2_angspd: dc.w 0
  9412. PLR2_xoff: dc.l 0
  9413. PLR2_yoff: dc.l 0
  9414. PLR2_yvel: dc.l 0
  9415. PLR2_zoff: dc.l 0
  9416. PLR2_tyoff: dc.l 0
  9417. PLR2_xspdval: dc.l 0
  9418. PLR2_zspdval: dc.l 0
  9419. PLR2_Zone: dc.w 0
  9420. PLR2_Roompt: dc.l 0
  9421. PLR2_OldRoompt: dc.l 0
  9422. PLR2_PointsToRotatePtr: dc.l 0
  9423. PLR2_ListOfGraphRooms: dc.l 0
  9424. PLR2_oldxoff: dc.l 0
  9425. PLR2_oldzoff: dc.l 0
  9426. PLR2_StoodInTop: dc.b 0
  9427.  even
  9428. PLR2_height: dc.l 0
  9429.  
  9430.  ds.w 4
  9431.  
  9432. PLR2s_cosval: dc.w 0
  9433. PLR2s_sinval: dc.w 0
  9434. PLR2s_angpos: dc.w 0
  9435. PLR2s_angspd: dc.w 0
  9436. PLR2s_xoff: dc.l 0
  9437. PLR2s_yoff: dc.l 0
  9438. PLR2s_yvel: dc.l 0
  9439. PLR2s_zoff: dc.l 0
  9440. PLR2s_tyoff: dc.l 0
  9441. PLR2s_xspdval: dc.l 0
  9442. PLR2s_zspdval: dc.l 0
  9443. PLR2s_Zone: dc.w 0
  9444. PLR2s_Roompt: dc.l 0
  9445. PLR2s_OldRoompt: dc.l 0
  9446. PLR2s_PointsToRotatePtr: dc.l 0
  9447. PLR2s_ListOfGraphRooms: dc.l 0
  9448. PLR2s_oldxoff: dc.l 0
  9449. PLR2s_oldzoff: dc.l 0
  9450. PLR2s_height: dc.l 0
  9451. PLR2s_targheight: dc.l 0
  9452.  
  9453.  ds.w 4
  9454.  
  9455. p2_xoff: dc.l 0
  9456. p2_zoff: dc.l 0
  9457. p2_yoff: dc.l 0
  9458. p2_height: dc.l 0
  9459. p2_angpos: dc.w 0
  9460. p2_bobble: dc.w 0
  9461. p2_clicked: dc.b 0
  9462. p2_spctap: dc.b 0
  9463. p2_ducked: dc.b 0
  9464. p2_gunselected: dc.b 0
  9465. p2_fire: dc.b 0
  9466.  even
  9467. p2_holddown: dc.w 0
  9468.  
  9469.  
  9470. liftanimtab:
  9471.  
  9472.  
  9473. endliftanimtab:
  9474.  
  9475. glassball:
  9476. ; incbin "glassball.inc"
  9477.  
  9478. endglass
  9479. glassballpt: dc.l glassball
  9480.  
  9481. rndtab: ; incbin "randfile"
  9482. endrnd: 
  9483.  
  9484. brightanimtab:
  9485.  dcb.w 200,20
  9486.  dc.w 5
  9487.  dc.w 10,20
  9488.  dc.w 5
  9489.  dcb.w 30,20
  9490.  dc.w 7,10,10,5,10,0,5,6,5,6,5,6,5,6,0
  9491.  dcb.w 40,0
  9492.  dc.w 1,2,3,2,3,2,3,2,3,2,3,2,3,0
  9493.  dcb.w 300,0
  9494.  dc.w 1,0,1,0,2,2,2,5,5,5,5,5,5,5,5,5,6,10
  9495.  dc.w -1
  9496.  
  9497. Roompt: dc.l 0
  9498. OldRoompt: dc.l 0
  9499.  
  9500. *****************************************************************
  9501.  *
  9502.  include "AB3:source_4000/LevelData2"
  9503.  *
  9504. *****************************************************************
  9505.  
  9506.  
  9507. wallpt: dc.l 0
  9508. floorpt: dc.l 0
  9509.  
  9510. Rotated:
  9511.  ds.l 2*800 
  9512. ObjRotated:
  9513.  ds.l 2*500
  9514.  
  9515. OnScreen:
  9516.  ds.l 2*800 
  9517.  
  9518. startwait: dc.w 0
  9519. endwait: dc.w 0
  9520.  
  9521. Faces:; incbin "faces2raw"
  9522.  
  9523. LINKS: ds.b 10000
  9524.  
  9525. *******************************************************************
  9526.  
  9527. consttab:
  9528.  incbin "constantfile"
  9529.  
  9530. *******************************************************************
  9531.  
  9532.  
  9533.  
  9534. *********************************
  9535.  
  9536. ; include "ab3:source_4000/loadmod.a"
  9537. ; include "ab3:source_4000/proplayer.a"
  9538.  
  9539.  
  9540. darkentab: 
  9541. ;val SET 0
  9542. ; REPT 256
  9543. ; dc.b val
  9544. ;val SET val+1
  9545. ; ENDR
  9546.  incbin "darkenfile"
  9547.  
  9548. SHADINGTABLE: incbin "SHADEFILE" 
  9549.  
  9550. brightentab: incbin "brightenfile"
  9551. WorkSpace:
  9552.  ds.l 8192 
  9553. waterfile: incbin "waterfile"
  9554.  
  9555.  SECTION ffff,CODE_C
  9556.  
  9557. nullspr: dc.l 0
  9558.  
  9559.  cnop 0,8
  9560. borders:
  9561.  incbin "newleftbord"
  9562.  incbin "newrightbord"
  9563.  
  9564. health: incbin "healthstrip"
  9565. Ammunition: incbin "ammostrip"
  9566. healthpal: incbin "healthpal"
  9567. PanelKeys: incbin "greenkey"
  9568.  incbin "redkey"
  9569.  incbin "yellowkey"
  9570.  incbin "bluekey"
  9571.  
  9572. null: ds.w 500
  9573. null2: ds.w 500
  9574. null3: ds.w 500
  9575. null4: ds.w 500
  9576.  
  9577.  
  9578. Blurbfield:
  9579.  
  9580.  dc.w bpl1ptl
  9581. bl1l: dc.w 0
  9582.  dc.w bpl1pth
  9583. bl1h: dc.w 0
  9584.  
  9585.  dc.w diwstart,$2c81
  9586.  dc.w diwstop,$1cc1
  9587.  dc.w ddfstart,$38
  9588.  dc.w ddfstop,$b8
  9589.  dc.w bplcon0,$9201
  9590.  dc.w bplcon1,0
  9591.  dc.w $106,$c40
  9592. blcols:
  9593.  dc.w col0,0
  9594.  dc.w col1,$fff
  9595.  
  9596.  dc.w $108,0
  9597.  dc.w $10a,0
  9598.  
  9599.  dc.w $ffff,$fffe
  9600.  dc.w $ffff,$fffe
  9601.  
  9602. nullline:
  9603.  ds.b 80    
  9604.  
  9605.  include "ab3:source_4000/titlecop.s"
  9606.  
  9607. bigfield:    
  9608.                 ; Start of our copper list.
  9609.  
  9610.  dc.w dmacon,$8020
  9611.  dc.w intreq,$8011
  9612.  dc.w $1fc,$f
  9613.  dc.w diwstart
  9614. winstart: dc.w $2c81
  9615.  dc.w diwstop
  9616. winstop: dc.w $2cc1
  9617.  dc.w ddfstart
  9618. fetchstart: dc.w $38
  9619.  dc.w ddfstop
  9620. fetchstop: dc.w $b8
  9621.  
  9622. bordercols:
  9623.  incbin "borderpal"
  9624.  
  9625.  dc.w spr0ptl
  9626. s0l:
  9627.  dc.w 0
  9628.  dc.w spr0pth
  9629. s0h:
  9630.  dc.w 0
  9631.  dc.w spr1ptl
  9632. s1l:
  9633.  dc.w 0
  9634.  dc.w spr1pth
  9635. s1h:
  9636.  dc.w 0
  9637.  dc.w spr2ptl
  9638. s2l:
  9639.  dc.w 0
  9640.  dc.w spr2pth
  9641. s2h:
  9642.  dc.w 0
  9643.  dc.w spr3ptl
  9644. s3l:
  9645.  dc.w 0
  9646.  dc.w spr3pth
  9647. s3h:
  9648.  dc.w 0
  9649.  dc.w spr4ptl
  9650. s4l:
  9651.  dc.w 0
  9652.  dc.w spr4pth
  9653. s4h:
  9654.  dc.w 0
  9655.  dc.w spr5ptl
  9656. s5l:
  9657.  dc.w 0
  9658.  dc.w spr5pth
  9659. s5h:
  9660.  dc.w 0
  9661.  dc.w spr6ptl
  9662. s6l:
  9663.  dc.w 0
  9664.  dc.w spr6pth
  9665. s6h:
  9666.  dc.w 0
  9667.  dc.w spr7ptl
  9668. s7l:
  9669.  dc.w 0
  9670.  dc.w spr7pth
  9671. s7h:
  9672.  dc.w 0
  9673.  
  9674.  
  9675. ; dc.w $106,$c42
  9676. ; incbin "borderpal"
  9677.  
  9678.  dc.w $106,$c42
  9679.  
  9680.  dc.w bplcon0,$0211
  9681.  dc.w bplcon1
  9682. smoff:
  9683.  dc.w $0
  9684.  
  9685.  dc.w $108
  9686. modulo: dc.w 0
  9687.  dc.w $10a,0
  9688.  
  9689.  dc.w $1001,$ff00
  9690.  dc.w intreq,$11
  9691.  
  9692.  
  9693.  dc.w bpl1pth
  9694. pl1h
  9695.  dc.w 0
  9696.  
  9697.  dc.w bpl1ptl
  9698. pl1l
  9699.  dc.w 0
  9700.  
  9701.  dc.w bpl2pth
  9702. pl2h
  9703.  dc.w 0
  9704.  
  9705.  dc.w bpl2ptl
  9706. pl2l
  9707.  dc.w 0
  9708.  
  9709.  dc.w bpl3pth
  9710. pl3h
  9711.  dc.w 0
  9712.  
  9713.  dc.w bpl3ptl
  9714. pl3l
  9715.  dc.w 0
  9716.  
  9717.  dc.w bpl4pth
  9718. pl4h
  9719.  dc.w 0
  9720.  
  9721.  dc.w bpl4ptl
  9722. pl4l
  9723.  dc.w 0
  9724.  
  9725.  dc.w bpl5pth
  9726. pl5h
  9727.  dc.w 0
  9728.  
  9729.  dc.w bpl5ptl
  9730. pl5l
  9731.  dc.w 0
  9732.  
  9733.  dc.w bpl6pth
  9734. pl6h
  9735.  dc.w 0
  9736.  
  9737.  dc.w bpl6ptl
  9738. pl6l
  9739.  dc.w 0
  9740.  
  9741.  dc.w bpl7pth
  9742. pl7h
  9743.  dc.w 0
  9744.  
  9745.  dc.w bpl7ptl
  9746. pl7l
  9747.  dc.w 0
  9748.  
  9749.  dc.w bpl8pth
  9750. pl8h
  9751.  dc.w 0
  9752.  
  9753.  dc.w bpl8ptl
  9754. pl8l
  9755.  dc.w 0
  9756.  
  9757. ; dc.w $80
  9758. ;JUMPBACKH:
  9759. ; dc.w 0
  9760. ; dc.w $82
  9761. ;JUMPBACKL:
  9762. ; dc.w 0
  9763.  
  9764.  dc.w $8a,0
  9765.  
  9766.  dc.w $ffff,$fffe
  9767.  dc.w $ffff,$fffe
  9768.  
  9769. PALETTEBIT:
  9770.  incbin "256palette"
  9771.  dc.w $ffff,$fffe
  9772.  
  9773. yposcop:
  9774. ; dc.w $2a11,$fffe
  9775. ; dc.w $8a,0
  9776.  
  9777. ; ds.l 104*12
  9778.  
  9779. ;colbars:
  9780. ;val SET $2a
  9781. ; dcb.l 104*80,$1fe0000
  9782. ; dc.w $106,$c42
  9783. ; 
  9784. ; dc.w $80
  9785. ;pch1:
  9786. ; dc.w 0
  9787. ; dc.w $82
  9788. ;pcl1:
  9789. ; dc.w 0 
  9790. ; 
  9791. ; dc.w $88,0
  9792. ; 
  9793. ; dc.w $ffff,$fffe       ; End copper list.
  9794.  
  9795. ; ds.l 104*12
  9796.  
  9797.  
  9798. ;colbars2:
  9799. ;val SET $2a
  9800. ; dcb.l 104*80,$1fe0000
  9801. ; 
  9802. ; dc.w $106,$c42
  9803. ; 
  9804. ; dc.w $80
  9805. ;pch2:
  9806. ; dc.w 0
  9807. ; dc.w $82
  9808. ;pcl2:
  9809. ; dc.w 0
  9810. ; 
  9811. ; dc.w $88,0
  9812. ; 
  9813. ; dc.w $ffff,$fffe       ; End copper list.
  9814.  
  9815. ; ds.l 104*10
  9816.  
  9817. NullCopper:
  9818.  dc.w $ffff,$fffe
  9819.  
  9820. hitcol: dc.l 0
  9821.  
  9822. old: dc.l 0
  9823.  
  9824. prot5: dc.w 0
  9825. PanelCop:
  9826.  
  9827.  dc.w $80
  9828. och:
  9829.  dc.w 0
  9830.  dc.w $82
  9831. ocl:
  9832.  dc.w 0
  9833.  
  9834. statskip:
  9835.  dc.w $1fe,0
  9836.  dc.w $1fe,0
  9837.  
  9838.  dc.w $10c,0
  9839.  dc.w bplcon0,$1201
  9840.  dc.w bpl1ptl
  9841. n1l:
  9842.  dc.w 0
  9843.  dc.w bpl1pth
  9844. n1h:
  9845.  dc.w 0
  9846.  dc.w $108,-24
  9847.  incbin "Panelpal"
  9848.  
  9849.  dc.w bpl2pth
  9850. p2h
  9851.  dc.w 0
  9852.  
  9853.  dc.w bpl2ptl
  9854. p2l
  9855.  dc.w 0
  9856.  
  9857.  dc.w bpl3pth
  9858. p3h
  9859.  dc.w 0
  9860.  
  9861.  dc.w bpl3ptl
  9862. p3l
  9863.  dc.w 0
  9864.  
  9865.  dc.w bpl4pth
  9866. p4h
  9867.  dc.w 0
  9868.  dc.w bpl4ptl
  9869. p4l
  9870.  dc.w 0
  9871.  dc.w bpl5pth
  9872. p5h
  9873.  dc.w 0
  9874.  dc.w bpl5ptl
  9875. p5l
  9876.  dc.w 0
  9877.  dc.w bpl6pth
  9878. p6h
  9879.  dc.w 0
  9880.  dc.w bpl6ptl
  9881. p6l
  9882.  dc.w 0
  9883.  dc.w bpl7pth
  9884. p7h
  9885.  dc.w 0
  9886.  dc.w bpl7ptl
  9887. p7l
  9888.  dc.w 0
  9889.  dc.w bpl8pth
  9890. p8h
  9891.  dc.w 0
  9892.  dc.w bpl8ptl
  9893. p8l
  9894.  dc.w 0
  9895.  
  9896.  
  9897.  dc.w ddfstart,$38
  9898.  dc.w ddfstop,$b8
  9899.  dc.w diwstart,$2c81
  9900.  dc.w diwstop,$2cc1
  9901.  
  9902.  dc.w bplcon0
  9903. Panelcon: dc.w $0211
  9904.  dc.w bpl1pth
  9905. p1h
  9906.  dc.w 0
  9907.  
  9908.  dc.w bpl1ptl
  9909. p1l
  9910.  dc.w 0
  9911.  
  9912.  
  9913.  dc.w $108,40*7
  9914.  dc.w $10a,40*7
  9915.  
  9916.  dc.w $ffff,$fffe
  9917.  
  9918.  dc.w $180,$fff
  9919.  
  9920.  
  9921.  dc.w $f801,$ff00
  9922.  dc.w col1,$50
  9923.  dc.w $f901,$ff00
  9924.  dc.w col1,$90
  9925.  dc.w $fa01,$ff00
  9926.  dc.w col1,$f0
  9927.  dc.w $fb01,$ff00
  9928.  dc.w col1,$f0
  9929.  dc.w $fc01,$ff00
  9930.  dc.w col1,$90
  9931.  dc.w $fd01,$ff00
  9932.  dc.w col1,$50
  9933.  
  9934.  dc.w $fe01,$ff00
  9935.  dc.w col1,$fff
  9936.  
  9937.  dc.w $ffdf,$fffe
  9938.  dc.w $a01,$ff00
  9939.  dc.w bplcon0,$201
  9940.  
  9941.  incbin "faces2cols"
  9942.  dc.w bpl1pth
  9943. f1h
  9944.  dc.w 0
  9945.  
  9946.  dc.w bpl1ptl
  9947. f1l
  9948.  dc.w 0
  9949.  
  9950.  dc.w bpl2pth
  9951. f2h
  9952.  dc.w 0
  9953.  
  9954.  dc.w bpl2ptl
  9955. f2l
  9956.  dc.w 0
  9957.  
  9958.  dc.w bpl3pth
  9959. f3h
  9960.  dc.w 0
  9961.  
  9962.  dc.w bpl3ptl
  9963. f3l
  9964.  dc.w 0
  9965.  
  9966.  dc.w bpl4pth
  9967. f4h
  9968.  dc.w 0
  9969.  dc.w bpl4ptl
  9970. f4l
  9971.  dc.w 0
  9972.  
  9973.  dc.w bpl5pth
  9974. f5h
  9975.  dc.w 0
  9976.  dc.w bpl5ptl
  9977. f5l
  9978.  dc.w 0
  9979.  
  9980.  dc.w $0c01,$ff00
  9981.  dc.w bplcon0,$5201
  9982.   
  9983.  dc.w $ffff,$fffe
  9984.  
  9985.  cnop 0,64
  9986. FacePlace:
  9987. ; ds.l 6*32*5
  9988.  
  9989. TEXTSCRN: dc.l 0
  9990.  
  9991. TEXTCOP:
  9992.  dc.w intreq,$8030
  9993.  
  9994.  dc.w spr0ptl
  9995. txs0l:
  9996.  dc.w 0
  9997.  dc.w spr0pth
  9998. txs0h:
  9999.  dc.w 0
  10000.  dc.w spr1ptl
  10001. txs1l:
  10002.  dc.w 0
  10003.  dc.w spr1pth
  10004. txs1h:
  10005.  dc.w 0
  10006.  dc.w spr2ptl
  10007. txs2l:
  10008.  dc.w 0
  10009.  dc.w spr2pth
  10010. txs2h:
  10011.  dc.w 0
  10012.  dc.w spr3ptl
  10013. txs3l:
  10014.  dc.w 0
  10015.  dc.w spr3pth
  10016. txs3h:
  10017.  dc.w 0
  10018.  dc.w spr4ptl
  10019. txs4l:
  10020.  dc.w 0
  10021.  dc.w spr4pth
  10022. txs4h:
  10023.  dc.w 0
  10024.  dc.w spr5ptl
  10025. txs5l:
  10026.  dc.w 0
  10027.  dc.w spr5pth
  10028. txs5h:
  10029.  dc.w 0
  10030.  dc.w spr6ptl
  10031. txs6l:
  10032.  dc.w 0
  10033.  dc.w spr6pth
  10034. txs6h:
  10035.  dc.w 0
  10036.  dc.w spr7ptl
  10037. txs7l:
  10038.  dc.w 0
  10039.  dc.w spr7pth
  10040. txs7h:
  10041.  dc.w 0
  10042.  
  10043.  
  10044.  dc.w $10c,$0088
  10045.  
  10046.  dc.w $1fc,$f
  10047.  dc.w diwstart,$2c81    ; Top left corner of screen.
  10048.  dc.w diwstop,$2cc1     ; Bottom right corner of screen.
  10049.  dc.w ddfstart,$38      ; Data fetch start.
  10050.  dc.w ddfstop,$c8       ; Data fetch stop.
  10051.  
  10052.  dc.w bplcon0
  10053. TSCP:
  10054.  dc.w $9201
  10055.  
  10056.  dc.w $106,$c40
  10057.  
  10058.  dc.w $2a01,$ff00
  10059.  
  10060.  dc.w col0,0
  10061.  dc.w col1
  10062. TOPLET:
  10063. TXTCOLL:
  10064.  dc.w 0
  10065.   dc.w col2
  10066. BOTLET:
  10067.  dc.w 0
  10068.  dc.w col3
  10069. ALLTEXT:
  10070.  dc.w $fff
  10071.  dc.w $106,$e40
  10072.  dc.w col3
  10073. ALLTEXTLOW:
  10074.  dc.w $0
  10075.  
  10076.  
  10077.  dc.w bpl1pth
  10078. TSPTh:
  10079.  dc.w 0
  10080.  dc.w bpl1ptl
  10081. TSPTl:
  10082.  dc.w 0
  10083.  
  10084.  dc.w bpl2pth
  10085. TSPTh2:
  10086.  dc.w 0
  10087.  dc.w bpl2ptl
  10088. TSPTl2:
  10089.  dc.w 0
  10090.  
  10091.  
  10092.  dc.w $108,0
  10093.  dc.w $10a,0
  10094.  
  10095.  dc.w $ffff,$fffe
  10096.  
  10097. ********************************************
  10098. * Stuff you don't have to worry about yet. *
  10099. ********************************************
  10100.  
  10101. closeeverything:
  10102.  
  10103.  jsr mt_end
  10104.  
  10105.  move.l #nullcop,d0
  10106. ; move.l old,d0
  10107.  
  10108.  
  10109. ;charlie  
  10110.  move.l d0,$dff080     ; Restore old copper list.
  10111.  move.w d0,ocl
  10112.  swap d0
  10113.  move.w d0,och
  10114.  
  10115. ; move.l doslib,a6
  10116. ; move.l #4,d1
  10117. ; jsr -198(a6)
  10118.  
  10119. ; move.l doslib,d0
  10120. ; move.l d0,a1
  10121. ; move.l 4.w,a6
  10122. ; jsr CloseLib(a6)
  10123.  
  10124.  move.l #$dff000,a6
  10125.  move.w #$8020,dmacon(a6)
  10126.  move.w #$f,dmacon(a6)
  10127.  
  10128. ; move.l 4.w,a6
  10129. ; lea VBLANKInt,a1
  10130. ; moveq #INTB_COPER,d0
  10131. ; jsr _LVORemIntServer(a6)
  10132.  
  10133. ; IFEQ CD32VER
  10134. ; move.l OLDKINT,$68.w
  10135. ; ENDC
  10136. ; move.w saveinters,d0
  10137. ; or.w #$c000,d0
  10138. ; move.w d0,intena(a6)
  10139.  clr.w $dff0a8
  10140.  clr.w $dff0b8
  10141.  clr.w $dff0c8
  10142.  clr.w $dff0d8
  10143.  
  10144.  
  10145. ; move.l oldview,a1
  10146. ; move.l a1,d0
  10147. ; move.l gfxbase,a6
  10148. ; jsr -$de(a6)
  10149.  
  10150. ; cmp.b #'s',mors
  10151. ; beq.s leaveold
  10152. ; move.w #$f8e,$dff1dc
  10153. ;leaveold:
  10154.  
  10155.  jsr RELEASELEVELMEM
  10156.  jsr RELEASESCRNMEM
  10157.  
  10158.  move.l #0,d0
  10159.  
  10160.  rts
  10161.  
  10162.  
  10163.  
  10164. intbase: dc.l 0
  10165. gfxbase: dc.l 0
  10166. oldview: dc.l 0
  10167.  
  10168. stuff:
  10169.  
  10170.     PRSDL
  10171.     Lea    gfxname(pc),a1    
  10172.     Moveq.l    #0,d0
  10173.     Move.l    $4.w,a6    
  10174.     Jsr    -$228(a6)
  10175.     add.w d1,RVAL1
  10176.     Move.l     d0,gfxbase
  10177.     Move.l    d0,a6                Use As Base Reg
  10178.     Move.l    34(a6),oldview
  10179.     move.l 38(a6),old
  10180.     rts
  10181.  
  10182. gfxname dc.b "graphics.library",0
  10183.  even
  10184. INTUNAME    dc.b    "intuition.library",0
  10185.  
  10186.  even
  10187.  
  10188.  
  10189.  cnop 0,64
  10190.  
  10191. Panel:
  10192.  dc.l 0
  10193.  
  10194. TimerScr: 
  10195. ;ds.b 40*64
  10196.  
  10197. scrntab:
  10198.  ds.b 16
  10199. val SET 32
  10200.  REPT 96
  10201.  dc.b val,val,val
  10202. val SET val+1
  10203.  ENDR
  10204.  ds.b 16
  10205.  
  10206. smallscrntab:
  10207. val SET 32
  10208.  REPT 96
  10209.  dc.b val,val
  10210. val SET val+1
  10211.  ENDR
  10212.  
  10213.  cnop 0,64
  10214. scrn:
  10215.  ds.l 2560*8
  10216. scrn2:
  10217.  ds.l 2560*8
  10218.  
  10219. SCRNDRAWPT: dc.l scrn
  10220. SCRNSHOWPT: dc.l scrn2
  10221.  
  10222.  dcb.l 8,$33333333
  10223.  dc.l 0
  10224.  dc.l 0
  10225.  
  10226.  dcb.l 8,$0f0f0f0f
  10227.  dc.l 0
  10228.  dc.l 0
  10229.  
  10230.  dcb.l 8,$00ff00ff
  10231.  dc.l 0
  10232.  dc.l 0
  10233.  
  10234.  dcb.l 8,$0000ffff
  10235.  dc.l 0
  10236.  dc.l 0
  10237.  
  10238.  dc.l 0,-1,0,-1,0,-1,0,-1
  10239.  dc.l 0
  10240.  dc.l 0
  10241.  
  10242.  dc.l -1,-1,0,0,-1,-1,0,0
  10243.  dc.l 0
  10244.  dc.l 0
  10245.  
  10246.  dc.l 0,0,-1,-1,-1,-1,-1,-1
  10247.  dc.l 0
  10248.  dc.l 0
  10249.  
  10250. NumTimes: dc.l 0
  10251. TimeCount: dc.l 0
  10252. oldtime: dc.l 0
  10253. counting: dc.b 0
  10254. oktodisplay: dc.b 0
  10255.  
  10256. INITTIMER:
  10257.  move.l #0,TimeCount
  10258.  move.l #0,NumTimes
  10259.  rts
  10260.  
  10261. STARTCOUNT:
  10262.  move.l d0,-(a7)
  10263.  move.l $dff004,d0
  10264.  and.l #$1ffff,d0
  10265.  move.l d0,oldtime
  10266.  st counting
  10267.  move.l (a7)+,d0
  10268.  rts
  10269.  
  10270. STOPCOUNT:
  10271.  move.l d0,-(a7)
  10272.  move.l $dff004,d0
  10273.  and.l #$1ffff,d0
  10274.  
  10275.  sub.l oldtime,d0
  10276.  cmp.l #-256,d0
  10277.  bge.s okcount
  10278.  add.l #313*256,d0
  10279. okcount:
  10280.  add.l d0,TimeCount
  10281.  addq.l #1,NumTimes
  10282.  clr.b counting
  10283.  move.l (a7)+,d0
  10284.  rts
  10285.  
  10286. STOPCOUNTNOADD:
  10287.  move.l d0,-(a7)
  10288.  move.l $dff004,d0
  10289.  and.l #$1ffff,d0
  10290.  
  10291.  sub.l oldtime,d0
  10292.  cmp.l #-256,d0
  10293.  bge.s okcount2
  10294.  add.l #313*256,d0
  10295. okcount2:
  10296.  add.l d0,TimeCount
  10297.  clr.b counting
  10298.  move.l (a7)+,d0
  10299.  rts
  10300.  
  10301. maxbot: dc.w 0
  10302. tstneg: dc.l 0
  10303.  
  10304. STOPTIMER:
  10305.  st oktodisplay
  10306.  rts
  10307.  
  10308. digits: incbin "numbers.inc"
  10309.  
  10310.  
  10311.  Section Sounds,CODE_C
  10312.  
  10313. nullcop:
  10314.  dc.w $106,$c40
  10315.  dc.w $180,0 
  10316.  dc.w $100,$0
  10317.  dc.w $ffff,$fffe
  10318.  
  10319. Scream:
  10320. ; incbin "ab3:sounds/Scream"
  10321. ; ds.w 100
  10322. EndScream:
  10323. LowScream:
  10324. ; incbin "ab3:sounds/LowScream"
  10325. ; ds.w 100
  10326. EndLowScream:
  10327. BaddieGun:
  10328. ; incbin "ab3:sounds/BaddieGun"
  10329. EndBaddieGun:
  10330. bass:
  10331. ; incbin "ab3:sounds/backbass+drum"
  10332. bassend:
  10333. Shoot:
  10334. ; incbin "ab3:sounds/fire!"
  10335. EndShoot:
  10336. Munch:
  10337. ; incbin "ab3:sounds/munch"
  10338. EndMunch:
  10339. PooGun:
  10340. ; incbin "ab3:sounds/shoot.dm"
  10341. EndPooGun:
  10342. Collect:
  10343. ; incbin "ab3:sounds/collect"
  10344. EndCollect:
  10345. DoorNoise:
  10346. ; incbin "ab3:sounds/newdoor"
  10347. EndDoorNoise:
  10348. Stomp:
  10349. ; incbin "ab3:sounds/footstep3"
  10350. EndStomp:
  10351. SwitchNoise:
  10352. ; incbin "ab3:sounds/switch"
  10353. EndSwitch:
  10354. Reload:
  10355. ; incbin "ab3:sounds/switch1.SFX"
  10356. EndReload:
  10357.  
  10358. CHEATFRAME:
  10359.  dc.b 26,20,33,27,17,12
  10360. ENDCHEAT:
  10361.  
  10362. NoAmmo:
  10363. ; incbin "ab3:sounds/noammo"
  10364. EndNoAmmo:
  10365. Splotch:
  10366. ; incbin "ab3:sounds/splotch"
  10367. EndSplotch:
  10368. SplatPop:
  10369. ; incbin "ab3:sounds/splatpop"
  10370. EndSplatPop:
  10371. Boom:
  10372. ; incbin "ab3:sounds/boom"
  10373. EndBoom:
  10374. Hiss:
  10375. ; incbin "ab3:sounds/newhiss"
  10376. EndHiss:
  10377. Howl1:
  10378. ; incbin "ab3:sounds/howl1"
  10379. EndHowl1:
  10380. Howl2:
  10381. ; incbin "ab3:sounds/howl2"
  10382. EndHowl2:
  10383. Pant:
  10384. ; incbin "ab3:sounds/pant"
  10385. EndPant:
  10386. Whoosh:
  10387. ; incbin "ab3:sounds/whoosh"
  10388. EndWhoosh:
  10389. ROAR:
  10390. ; incbin "ab3:sounds/bigscream"
  10391. EndROAR
  10392. whoosh:
  10393. ; incbin "ab3:sounds/flame"
  10394. Endwhoosh:
  10395.  SECTION music,code_c
  10396.  
  10397. UseAllChannels: dc.w 0
  10398.  
  10399. mt_init:move.l    mt_data,a0
  10400.     move.l    a0,a1
  10401.     add.l    #$3b8,a1
  10402.     moveq    #$7f,d0
  10403.     moveq    #0,d1
  10404. mt_loop:move.l    d1,d2
  10405.     subq.w    #1,d0
  10406. mt_lop2:move.b    (a1)+,d1
  10407.     cmp.b    d2,d1
  10408.     bgt.s    mt_loop
  10409.     dbf    d0,mt_lop2
  10410.     addq.b    #1,d2
  10411.  
  10412.     lea    mt_samplestarts(pc),a1
  10413.     asl.l    #8,d2
  10414.     asl.l    #2,d2
  10415.     add.l    #$43c,d2
  10416.     add.l    a0,d2
  10417.     move.l    d2,a2
  10418.     moveq    #$1e,d0
  10419. mt_lop3:clr.l    (a2)
  10420.     move.l    a2,(a1)+
  10421.     moveq    #0,d1
  10422.     move.w    42(a0),d1
  10423.     asl.l    #1,d1
  10424.     add.l    d1,a2
  10425.     add.l    #$1e,a0
  10426.     dbf    d0,mt_lop3
  10427.  
  10428.     or.b    #$2,$bfe001
  10429.     move.b    #$6,mt_speed
  10430.     clr.w    $dff0a8
  10431.     clr.w    $dff0b8
  10432.     clr.w    $dff0c8
  10433.     clr.w    $dff0d8
  10434.     clr.b    mt_songpos
  10435.     clr.b    mt_counter
  10436.     clr.w    mt_pattpos
  10437.     rts
  10438.  
  10439. mt_end:    clr.w    $dff0a8
  10440.     clr.w    $dff0b8
  10441.     clr.w    $dff0c8
  10442.     clr.w    $dff0d8
  10443.     move.w    #$f,$dff096
  10444.     rts
  10445.  
  10446. mt_music:
  10447.     movem.l    d0-d4/a0-a3/a5-a6,-(a7)
  10448.     move.l    mt_data,a0
  10449.     addq.b    #$1,mt_counter
  10450.     move.b    mt_counter,D0
  10451.     cmp.b    mt_speed,D0
  10452.     blt.s    mt_nonew
  10453.     clr.b    mt_counter
  10454.     bra    mt_getnew
  10455.  
  10456. mt_nonew:
  10457.     lea    mt_voice1(pc),a6
  10458.     lea    $dff0a0,a5
  10459.     bsr    mt_checkcom
  10460.     lea    mt_voice2(pc),a6
  10461.     lea    $dff0b0,a5
  10462.     bsr    mt_checkcom
  10463.     tst.b UseAllChannels
  10464.     beq mt_endr
  10465.      lea    mt_voice3(pc),a6
  10466.     lea    $dff0c0,a5
  10467.     bsr    mt_checkcom
  10468.     lea    mt_voice4(pc),a6
  10469.     lea    $dff0d0,a5
  10470.     bsr    mt_checkcom
  10471.     bra    mt_endr
  10472.  
  10473. mt_arpeggio:
  10474.     moveq    #0,d0
  10475.     move.b    mt_counter,d0
  10476.     divs    #$3,d0
  10477.     swap    d0
  10478.     cmp.w    #$0,d0
  10479.     beq.s    mt_arp2
  10480.     cmp.w    #$2,d0
  10481.     beq.s    mt_arp1
  10482.  
  10483.     moveq    #0,d0
  10484.     move.b    $3(a6),d0
  10485.     lsr.b    #4,d0
  10486.     bra.s    mt_arp3
  10487. mt_arp1:moveq    #0,d0
  10488.     move.b    $3(a6),d0
  10489.     and.b    #$f,d0
  10490.     bra.s    mt_arp3
  10491. mt_arp2:move.w    $10(a6),d2
  10492.     bra.s    mt_arp4
  10493. mt_arp3:asl.w    #1,d0
  10494.     moveq    #0,d1
  10495.     move.w    $10(a6),d1
  10496.     lea    mt_periods(pc),a0
  10497.     moveq    #$24,d7
  10498. mt_arploop:
  10499.     move.w    (a0,d0.w),d2
  10500.     cmp.w    (a0),d1
  10501.     bge.s    mt_arp4
  10502.     addq.l    #2,a0
  10503.     dbf    d7,mt_arploop
  10504.     rts
  10505. mt_arp4:move.w    d2,$6(a5)
  10506.     rts
  10507.  
  10508. mt_getnew:
  10509.     move.l    mt_data,a0
  10510.     move.l    a0,a3
  10511.     move.l    a0,a2
  10512.     add.l    #$c,a3
  10513.     add.l    #$3b8,a2
  10514.     add.l    #$43c,a0
  10515.  
  10516.     moveq    #0,d0
  10517.     move.l    d0,d1
  10518.     move.b    mt_songpos,d0
  10519.     move.b    (a2,d0.w),d1
  10520.     asl.l    #8,d1
  10521.     asl.l    #2,d1
  10522.     add.w    mt_pattpos,d1
  10523.     clr.w    mt_dmacon
  10524.  
  10525.     lea    $dff0a0,a5
  10526.     lea    mt_voice1(pc),a6
  10527.     bsr    mt_playvoice
  10528.     lea    $dff0b0,a5
  10529.     lea    mt_voice2(pc),a6
  10530.     bsr    mt_playvoice
  10531.     tst.b UseAllChannels
  10532.     beq mt_setdma
  10533.     lea    $dff0c0,a5
  10534.     lea    mt_voice3(pc),a6
  10535.     bsr    mt_playvoice
  10536.     lea    $dff0d0,a5
  10537.     lea    mt_voice4(pc),a6
  10538.     bsr    mt_playvoice
  10539.     bra    mt_setdma
  10540.  
  10541. PROTCALC:
  10542. ;    include "ab3:source_4000/protcalc.s"
  10543.     incbin "ab3:includes/protcalc.bin"
  10544. ENDPROTCALC:
  10545.  
  10546. mt_playvoice:
  10547.     move.l    (a0,d1.l),(a6)
  10548.     addq.l    #4,d1
  10549.     moveq    #0,d2
  10550.     move.b    $2(a6),d2
  10551.     and.b    #$f0,d2
  10552.     lsr.b    #4,d2
  10553.     move.b    (a6),d0
  10554.     and.b    #$f0,d0
  10555.     or.b    d0,d2
  10556.     tst.b    d2
  10557.     beq.s    mt_setregs
  10558.     moveq    #0,d3
  10559.     lea    mt_samplestarts(pc),a1
  10560.     move.l    d2,d4
  10561.     subq.l    #$1,d2
  10562.     asl.l    #2,d2
  10563.     mulu    #$1e,d4
  10564.     move.l    (a1,d2.l),$4(a6)
  10565.     move.w    (a3,d4.l),$8(a6)
  10566.     move.w    $2(a3,d4.l),$12(a6)
  10567.     move.w    $4(a3,d4.l),d3
  10568.     tst.w    d3
  10569.     beq.s    mt_noloop
  10570.     move.l    $4(a6),d2
  10571.     asl.w    #1,d3
  10572.     add.l    d3,d2
  10573.     move.l    d2,$a(a6)
  10574.     move.w    $4(a3,d4.l),d0
  10575.     add.w    $6(a3,d4.l),d0
  10576.     move.w    d0,8(a6)
  10577.     move.w    $6(a3,d4.l),$e(a6)
  10578.     move.w    $12(a6),d0
  10579.     asr.w #2,d0
  10580.     move.w d0,$8(a5)
  10581.     bra.s    mt_setregs
  10582. mt_noloop:
  10583.     move.l    $4(a6),d2
  10584.     add.l    d3,d2
  10585.     move.l    d2,$a(a6)
  10586.     move.w    $6(a3,d4.l),$e(a6)
  10587.     move.w    $12(a6),d0
  10588.     asr.w #2,d0
  10589.     move.w d0,$8(a5)
  10590. mt_setregs:
  10591.     move.w    (a6),d0
  10592.     and.w    #$fff,d0
  10593.     beq    mt_checkcom2
  10594.     move.b    $2(a6),d0
  10595.     and.b    #$F,d0
  10596.     cmp.b    #$3,d0
  10597.     bne.s    mt_setperiod
  10598.     bsr    mt_setmyport
  10599.     bra    mt_checkcom2
  10600. mt_setperiod:
  10601.     move.w    (a6),$10(a6)
  10602.     and.w    #$fff,$10(a6)
  10603.     move.w    $14(a6),d0
  10604.     move.w    d0,$dff096
  10605.     clr.b    $1b(a6)
  10606.  
  10607.     move.l    $4(a6),(a5)
  10608.     move.w    $8(a6),$4(a5)
  10609.     move.w    $10(a6),d0
  10610.     and.w    #$fff,d0
  10611.     move.w    d0,$6(a5)
  10612.     move.w    $14(a6),d0
  10613.     or.w    d0,mt_dmacon
  10614.     bra    mt_checkcom2
  10615.  
  10616. mt_setdma:
  10617.      move.w #250,d0
  10618. mt_wait:
  10619.      add.w #1,testchip
  10620.      dbra d0,mt_wait
  10621.     move.w    mt_dmacon,d0
  10622.     or.w    #$8000,d0
  10623.     and.w #%1111111111110011,d0
  10624.     move.w    d0,$dff096
  10625.     move.w #250,d0
  10626. mt_wait2:
  10627.     add.w #1,testchip
  10628.     dbra    d0,mt_wait2
  10629.     lea    $dff000,a5
  10630.     tst.b UseAllChannels
  10631.     beq.s noall
  10632.     lea    mt_voice4(pc),a6
  10633.     move.l    $a(a6),$d0(a5)
  10634.     move.w    $e(a6),$d4(a5)
  10635.     lea    mt_voice3(pc),a6
  10636.     move.l    $a(a6),$c0(a5)
  10637.     move.w    $e(a6),$c4(a5)
  10638. noall:
  10639.     lea    mt_voice2(pc),a6
  10640.     move.l    $a(a6),$b0(a5)
  10641.     move.w    $e(a6),$b4(a5)
  10642.     lea    mt_voice1(pc),a6
  10643.     move.l    $a(a6),$a0(a5)
  10644.     move.w    $e(a6),$a4(a5)
  10645.  
  10646.     add.w    #$10,mt_pattpos
  10647.     cmp.w    #$400,mt_pattpos
  10648.     bne.s    mt_endr
  10649. mt_nex:    clr.w    mt_pattpos
  10650.     clr.b    mt_break
  10651.     addq.b    #1,mt_songpos
  10652.     and.b    #$7f,mt_songpos
  10653.     move.b    mt_songpos,d1
  10654. ;    cmp.b    mt_data+$3b6,d1
  10655. ;    bne.s    mt_endr
  10656. ;    move.b    mt_data+$3b7,mt_songpos
  10657. mt_endr:tst.b    mt_break
  10658.     bne.s    mt_nex
  10659.     movem.l    (a7)+,d0-d4/a0-a3/a5-a6
  10660.     rts
  10661.  
  10662. mt_setmyport:
  10663.     move.w    (a6),d2
  10664.     and.w    #$fff,d2
  10665.     move.w    d2,$18(a6)
  10666.     move.w    $10(a6),d0
  10667.     clr.b    $16(a6)
  10668.     cmp.w    d0,d2
  10669.     beq.s    mt_clrport
  10670.     bge.s    mt_rt
  10671.     move.b    #$1,$16(a6)
  10672.     rts
  10673. mt_clrport:
  10674.     clr.w    $18(a6)
  10675. mt_rt:    rts
  10676.  
  10677. CODESTORE: dc.l 0
  10678.  
  10679. mt_myport:
  10680.     move.b    $3(a6),d0
  10681.     beq.s    mt_myslide
  10682.     move.b    d0,$17(a6)
  10683.     clr.b    $3(a6)
  10684. mt_myslide:
  10685.     tst.w    $18(a6)
  10686.     beq.s    mt_rt
  10687.     moveq    #0,d0
  10688.     move.b    $17(a6),d0
  10689.     tst.b    $16(a6)
  10690.     bne.s    mt_mysub
  10691.     add.w    d0,$10(a6)
  10692.     move.w    $18(a6),d0
  10693.     cmp.w    $10(a6),d0
  10694.     bgt.s    mt_myok
  10695.     move.w    $18(a6),$10(a6)
  10696.     clr.w    $18(a6)
  10697. mt_myok:move.w    $10(a6),$6(a5)
  10698.     rts
  10699. mt_mysub:
  10700.     sub.w    d0,$10(a6)
  10701.     move.w    $18(a6),d0
  10702.     cmp.w    $10(a6),d0
  10703.     blt.s    mt_myok
  10704.     move.w    $18(a6),$10(a6)
  10705.     clr.w    $18(a6)
  10706.     move.w    $10(a6),$6(a5)
  10707.     rts
  10708.  
  10709. mt_vib:    move.b    $3(a6),d0
  10710.     beq.s    mt_vi
  10711.     move.b    d0,$1a(a6)
  10712.  
  10713. mt_vi:    move.b    $1b(a6),d0
  10714.     lea    mt_sin(pc),a4
  10715.     lsr.w    #$2,d0
  10716.     and.w    #$1f,d0
  10717.     moveq    #0,d2
  10718.     move.b    (a4,d0.w),d2
  10719.     move.b    $1a(a6),d0
  10720.     and.w    #$f,d0
  10721.     mulu    d0,d2
  10722.     lsr.w    #$6,d2
  10723.     move.w    $10(a6),d0
  10724.     tst.b    $1b(a6)
  10725.     bmi.s    mt_vibmin
  10726.     add.w    d2,d0
  10727.     bra.s    mt_vib2
  10728. mt_vibmin:
  10729.     sub.w    d2,d0
  10730. mt_vib2:move.w    d0,$6(a5)
  10731.     move.b    $1a(a6),d0
  10732.     lsr.w    #$2,d0
  10733.     and.w    #$3c,d0
  10734.     add.b    d0,$1b(a6)
  10735.     rts
  10736.  
  10737. mt_nop:    move.w    $10(a6),$6(a5)
  10738.     rts
  10739.  
  10740.  
  10741. mt_checkcom:
  10742.     move.w    $2(a6),d0
  10743.     and.w    #$fff,d0
  10744.     beq.s    mt_nop
  10745.     move.b    $2(a6),d0
  10746.     and.b    #$f,d0
  10747.     tst.b    d0
  10748.     beq    mt_arpeggio
  10749.     cmp.b    #$1,d0
  10750.     beq.s    mt_portup
  10751.     cmp.b    #$2,d0
  10752.     beq    mt_portdown
  10753.     cmp.b    #$3,d0
  10754.     beq    mt_myport
  10755.     cmp.b    #$4,d0
  10756.     beq    mt_vib
  10757.     move.w    $10(a6),$6(a5)
  10758.     cmp.b    #$a,d0
  10759.     beq.s    mt_volslide
  10760.     rts
  10761.  
  10762. mt_volslide:
  10763.     moveq    #0,d0
  10764.     move.b    $3(a6),d0
  10765.     lsr.b    #4,d0
  10766.     tst.b    d0
  10767.     beq.s    mt_voldown
  10768.     add.w    d0,$12(a6)
  10769.     cmp.w    #$40,$12(a6)
  10770.     bmi.s    mt_vol2
  10771.     move.w    #$40,$12(a6)
  10772. mt_vol2:move.w    $12(a6),d0
  10773.     asr.w #2,d0
  10774.     move.w d0,$8(a5)
  10775.     rts
  10776.  
  10777. mt_voldown:
  10778.     moveq    #0,d0
  10779.     move.b    $3(a6),d0
  10780.     and.b    #$f,d0
  10781.     sub.w    d0,$12(a6)
  10782.     bpl.s    mt_vol3
  10783.     clr.w    $12(a6)
  10784. mt_vol3:move.w    $12(a6),d0
  10785.     asr.w #2,d0
  10786.     move.w d0,$8(a5)
  10787.     rts
  10788.  
  10789. mt_portup:
  10790.     moveq    #0,d0
  10791.     move.b    $3(a6),d0
  10792.     sub.w    d0,$10(a6)
  10793.     move.w    $10(a6),d0
  10794.     and.w    #$fff,d0
  10795.     cmp.w    #$71,d0
  10796.     bpl.s    mt_por2
  10797.     and.w    #$f000,$10(a6)
  10798.     or.w    #$71,$10(a6)
  10799. mt_por2:move.w    $10(a6),d0
  10800.     and.w    #$fff,d0
  10801.     move.w    d0,$6(a5)
  10802.     rts
  10803.  
  10804. mt_portdown:
  10805.     clr.w    d0
  10806.     move.b    $3(a6),d0
  10807.     add.w    d0,$10(a6)
  10808.     move.w    $10(a6),d0
  10809.     and.w    #$fff,d0
  10810.     cmp.w    #$358,d0
  10811.     bmi.s    mt_por3
  10812.     and.w    #$f000,$10(a6)
  10813.     or.w    #$358,$10(a6)
  10814. mt_por3:move.w    $10(a6),d0
  10815.     and.w    #$fff,d0
  10816.     move.w    d0,$6(a5)
  10817.     rts
  10818.  
  10819. mt_checkcom2:
  10820.     move.b    $2(a6),d0
  10821.     and.b    #$f,d0
  10822.     cmp.b    #$e,d0
  10823.     beq.s    mt_setfilt
  10824.     cmp.b    #$d,d0
  10825.     beq.s    mt_pattbreak
  10826.     cmp.b    #$b,d0
  10827.     beq.s    mt_posjmp
  10828.     cmp.b    #$c,d0
  10829.     beq.s    mt_setvol
  10830.     cmp.b    #$f,d0
  10831.     beq.s    mt_setspeed
  10832.     rts
  10833.  
  10834. mt_setfilt:
  10835.     move.b    $3(a6),d0
  10836.     and.b    #$1,d0
  10837.     asl.b    #$1,d0
  10838.     and.b    #$fd,$bfe001
  10839.     or.b    d0,$bfe001
  10840.     rts
  10841. mt_pattbreak:
  10842.     not.b    mt_break
  10843.     rts
  10844. mt_posjmp:
  10845.     st reachedend
  10846.     move.b    $3(a6),d0
  10847.     subq.b    #$1,d0
  10848.     move.b    d0,mt_songpos
  10849.     not.b    mt_break
  10850.     rts
  10851. mt_setvol:
  10852.     cmp.b    #$40,$3(a6)
  10853.     ble.s    mt_vol4
  10854.     move.b    #$40,$3(a6)
  10855. mt_vol4:move.b    $3(a6),d0
  10856.     asr.w #2,d0
  10857.     move.w d0,$8(a5)
  10858.     rts
  10859. mt_setspeed:
  10860.     cmp.b    #$1f,$3(a6)
  10861.     ble.s    mt_sets
  10862.     move.b    #$1f,$3(a6)
  10863. mt_sets:move.b    $3(a6),d0
  10864.     beq.s    mt_rts2
  10865.     move.b    d0,mt_speed
  10866.     clr.b    mt_counter
  10867. mt_rts2:rts
  10868.  
  10869. mt_sin:
  10870.  DC.b $00,$18,$31,$4a,$61,$78,$8d,$a1,$b4,$c5,$d4,$e0,$eb,$f4,$fa,$fd
  10871.  DC.b $ff,$fd,$fa,$f4,$eb,$e0,$d4,$c5,$b4,$a1,$8d,$78,$61,$4a,$31,$18
  10872.  
  10873. mt_periods:
  10874.  DC.w $0358,$0328,$02fa,$02d0,$02a6,$0280,$025c,$023a,$021a,$01fc,$01e0
  10875.  DC.w $01c5,$01ac,$0194,$017d,$0168,$0153,$0140,$012e,$011d,$010d,$00fe
  10876.  DC.w $00f0,$00e2,$00d6,$00ca,$00be,$00b4,$00aa,$00a0,$0097,$008f,$0087
  10877.  DC.w $007f,$0078,$0071,$0000,$0000
  10878.  
  10879. reachedend: dc.b 0
  10880. mt_speed:    DC.b    6
  10881. mt_songpos:    DC.b    0
  10882. mt_pattpos:    DC.w    0
  10883. mt_counter:    DC.b    0
  10884.  
  10885. mt_break:    DC.b    0
  10886. mt_dmacon:    DC.w    0
  10887. mt_samplestarts:DS.L    $1f
  10888. mt_voice1:    DS.w    10
  10889.         DC.w    1
  10890.         DS.w    3
  10891. mt_voice2:    DS.w    10
  10892.         DC.w    2
  10893.         DS.w    3
  10894. mt_voice3:    DS.w    10
  10895.         DC.w    4
  10896.         DS.w    3
  10897. mt_voice4:    DS.w    10
  10898.         DC.w    8
  10899.         DS.w    3
  10900.  
  10901. CHEATPTR: dc.l 0
  10902. CHEATNUM: dc.l 0
  10903.  
  10904. testchip: dc.w 0
  10905.  
  10906. ;/* End of File */
  10907. mt_data: dc.l 0
  10908. tstchip: dc.l 0
  10909.  include "SERIAL_NIGHTMARE"
  10910.  
  10911. ingame:
  10912. ; incbin "ab3:includes/ingame"
  10913. gameover: incbin "ab3:includes/gameover"
  10914. welldone: incbin "ab3:includes/welldone"
  10915.  
  10916.  
  10917.